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Procedure Name: Add_keys 

/****** Object: Stored Procedure dbo.add_Keys 

/****** Object: Stored Procedure dbo.addKeys 

/****** Object: Stored Procedure dbo.add_Keys 

/♦♦♦*** object: Stored Procedure dbo.add Keys 

/****** Object: Stored Procedure dbo.add_Keys 

/****** Object: Stored Procedure dbo.add_Keys 

Object: Stored Procedure dbo.add_Keys 

@full_promo_key varchar (25), 
@dt_valid_jrom smalldatetime, 
@dt_valid_to smalldatetime, 
@src_cat_name varchar(30), 
@src_indicator char (3), 
@panel_name varchar (250), 
@camp_name varchar (250), 
@product_id numeric(8,0), 
@source_name varchar(250) 

AS 

insert into keys 

c 

full_promo_key, 



Script Date: 1/14/99 3:43:07 PM ******/ 
Script Date: 1/12/99 1 1:05:37 PM *♦*♦**/ 
Script Date: 11/28/98 2:31:13 PM ******/ 
Script Date: 1 1/17/98 2:43:36 PM ******/ 
Script Date: 10/19/98 6:03:58 PM 
Script Date: 10/6/98 7:56:48 PM ******/ 
Script Date: 10/6/98 1 1:08:02 AM ******/ 



dt_valid_from, 

dt_valid_to, 

src_cat_name, 

src_indicator, 

panel_name, 

camp_name, 

product_id, 

source_name 

) 

values 

( @full_promo_key, 
@dt_vaIid_from, 
@dt_valid_to, 
@src_cat_name, 
@src_indicator, 
@panel_name, 
@camp_name, 
@product_id, 
@source_name 

) 

Delete from avail_keys where full _promo_key = @full_j)romo_key and product_id=@product_id 
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Procedure Name: Addrptdef 



/* 



( 



@parameterl datatype = default value, 
@parameter2 datatype OUTPUT 



*/ 

(@rpt_group varchar(75), 
@rpt_title varchar(75), 
@rpt_description varchar (250), 
@rpt_selFormula varchar(lOOO), 
@rpt_path varchar(250), 
@rpt_paraml varchar(50), 
@rpt_param2 varchar(50), 
@rpt_param3 varchar(SO), 
@rpt_param4 varchar(50), 
@product_id varchar(250), 
@login varchar(50) 



/* set nocount on V 
Insert into rpt_Defs 
(rptjpx)up,rpt_title,rpt_description,^ 
Values 

(@rpt^oup,@rptJitIe,@rpt_description,@rpt_se!Fonmula,@rptj 
uct_id) 



execute sp_LogInfo @product_id,@Iogin,'Saved Report',@rpt_title 



As 
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Procedure Name: Autosetupwizard 

©verbose int - 0 means no text, non-zero means display text messages 
, @product_id int 

as 

begin — autosetup wizard 

if @product_id > 0 -product id is set to -1 to run autosetup_wizard for ALL PRODUCTS. This happens is 

doavail401keys 

begin 

declare avail_keys cursor 
for select product_id 

, full_promo_key 

, fulfillmentjiouse 

, dt_valid_to 

, source_identifier 

, mail_qty 

from avail_keys 

where fulfillmentjiouse is not null 

and product_id = @product_id 

—or product_id = 360 

-or full _promo_key like "6RAA_K_529 M 

end 
else 
begin 

declare avaiMceys cursor 
for select produced 

, full_promokey 

, fulfillment_house 

, dt_valid_to 

, source_identifier 

, mail_qty 

from avaiMceys 

where fulfillment_house is not null 

end 

-Avail Key Vars 

-declare @product_id varchar(50) 
declare @avail_key varchar(50) 
declare @fulfillraent_house varchar(50) 
declare @dt_valid_to datetime 
declare @source_identifier char(l) 
declare @mail_qty int 

-Campaign vars 

declare @campaign_code varchar(50) 

declare @campaign_description varchar(50) 

declare @rec_id int 

declare @src_jndicator char(3) 

declare @camp_name varchar(250) 

declare @title_name varchar(250) 

declare @camp_date_fr datetime 

-Setup Wizard vars 



Integrated Marketing Technology 



9/27/00 3:38 PM 



Page 6 of 142 



(J) 



IMT Subscription Marketing Reporting System 



declare @setup_mask varchar(50) 
declare @src_cat_name varchar(50) 
declare @source_name varchar(250) 
declare @prior_source_indicator varchar(2) 
declare @valid_from_date datetime 
declare @valid_to_date datetime 
declare @grp_name varchar(50) 
declare @e_set_name varchar(50) 

—panel vars 

declare @panel_name varchar(250) 
declare @panel_code varchar(250) 
declare @panel_scheme varchar(50) 

-local vars 
declare @i int 

declare @number_of_valid_schemes int 



if @verbose o 0 print "Starting ... M 
open avail_keys 

fetch next from availjceys into @product_id, @avail_key, (gftilfillmentjiouse, @dt_valid_to, 
@source_identifier, @mail_qty 

while @@fetch_status = 0 —Loop through avail keys and attempt to assign them to campaigns 
begin 

if @verbose o 0 print "Avail Key " + @avail_key 

if @verbose o 0 print "Source Identifier " + @source_identifier 

-Get autosetup vars for schemes matching current key 

set @setup_mask = null 

-If the number of valid schemes is greater than zero and the source category is renewals 
then the source is split 

-and a match is required from the prior source definition table(autosetup_renewal_psdef) 
select @number_of_valid_schemes = count(*) 

from autosetup_scheme 

where product_id = @product_id 

and valid_from_date <= @dt_valid_to 

and valid_to_date >= @dt_valid_to 

and src_indicator = @source_identifier 

— GREGG ADDED THE FOLLOWING CONDITION TO THE VALID 

SCHEME COUNTER 

and setup_mask = @setup_mask 
select @setup_mask = setup_mask 

i @src_cat_name = src_cat_name 

, @src_indicator = src_indicator 

, @source_name = source_name 

, @valid_from_date = valid_from_date 

, @valid_to_date = validjo_date 

, @grp_name = grpjiame 

, @e_set_name = isnull(e_set_name,"Undefined M ) 

from autosetup_scheme 

where product_id = @product_id 

and valid_from_date <= @dt_valid_to 

and valid_to_date >= @dt_valid_to 

and src_indicator = @source_identifier 

and len(setup_mask) = len(@avail_key) 
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if @verbose o 0 print "Source Indicator => " + @src_indicator 

if @setup_mask is not null -Build campaign code based on setup mask, otherwise move 

on to next scheme 

begin 

set @campaign_code = null 
set @camp_name = null 

-if len(@avail_key) = 1 1 and @src_cat_name = "RENEWALS" set 
@setup_mask = "SxxxxZZxCCC" 

if @verbose o 0 print "Found an applicable setup mask! => " + @setup_mask 

if @fulfillment_house = "CENTROBE" or @fiilfillment_house = "PALM 
COAST" exec concat_c_codes @setup_mask, @avail_key, @campaign_code output 

if @fulfillment_house = "CDS" and (@src_cat_name = "DTP" or 
@src_cat__name = "GIFT") exec concat_c_codes @setup_mask, @avail_key, @campaign_code output 

if ©fulfillment Jiouse = "CDS" and (@src_cat_name = "RENEWALS" or 
@src_cat_name = "BILLrNG") 

begin -set code to pos2 & last pos then match value with def table and set 

description 

set @campaign_code = substring(@availjcey,2,l) + 
substring(@avail_key ) len(@avail_key), 1 ) 

end -if 

if @verbose o 0 print "campaign code =>" + @campaign_code 

select @camp_name = campaign_description 
, @camp_date_fr = campaign_date 

from autosetup_campaign_def 
where campaign_code = @campaign_code 
-and source_identifier = substring(@avail_key,l,l) 

and src_cat_name = @src_cat_name 
and productjd = @product_id 

if @camp__name is null —Build new campaign name 
begin 

set @camp_name = 

if @ verbose o 0 print "Source Category Name => " + 



@src_cat_name 
@fulfillment_house 



if @verbose o 0 print "Fulfillment House => " + 

if @fulfiIlment_house = "CENTROBE" 
begin 



if @src_cat_name = "DTP" or @src_cat_name = "GIFT" set 
@camp_name = substring(@availjcey, 6, 4) + " Campaign " + @campaign_code 

-if @src_cat_name = "RENEWALS" set @camp_name = 

"Expire " + @campaign_code 

if @src_cat_name = "RENEWALS" 
begin 

set @camp_name = null 
select @camp_name = campaign_description 
, @camp_date_fr = campaign_date 



from autosetup_campaign_def 
where src_cat_name = @src_cat_name 
and campaign_code = @campaign_code 
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and product_id = @product_id 
if @camp_name is null 
begin 

set @camp_name = "Expire M + 

@campaign_code 

set @camp_date_fr = null 

end 

end 

if @src_cat_name - "BILLING" set @camp_name = 
substring(@avail_key,5 ) 2) + " Credit Period " + @campaign_code 

end 

if @fuIfillment_house = "PALM COAST" 
begin 

if @src_cat_name = "DTP" or @src_cat_name = "GIFT" set 
@camp_name = substring(@avail_key, Ien(@avail_key) -3,4) + " Campaign " + @campaign_code 

if @src_cat_name = "RENEWALS" set @camp_name = 
substring(@avail_key, len(@avail_key) - 3, 4) + n Expire " + @campaign_code 

if @src_cat_name = "BILLING" set @camp_name = "Credit 

Period " + @campaign_code 

end 

if @fuIfillment_house = "CDS" 
begin 

if @src_cat_name = "DTP" or @src_cat_name = "GIFT" 
begin 

if substring(@avail_key,len(@avail_key) - 1,2) < 8 
begin 

set @camp_name = "200" + 
substring(@avail_key,len(@avail_key) - 1,2) + " Campaign " + @campaign_code 

end 

else 

begin 

set @camp_name — "199" + 
substring(@avail_key,len(@avail_key) - 1,2) + " Campaign " + @campaign_code 

end 
—end -if 

end 

if @src_cat_name = "RENEWALS" set @camp_name = 

@campaign_code 

if @src_cat__name = "BILLING" set @camp_name = 

@campaign_code 

end 

if @camp_name is null set @camp_name = "Auto setup Campaign - 

Fulfillment House not Set!!!" 

end -if 

if @verbose o 0 print "Campaign Name => " + @camp_name 

—set prior source indicator 
set @i = 0 

set @prior_source_indicator = "" 
while @i <= len(@setup_mask) 
begin 

set @i = @i + I 
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if substring(@setup_^lask,@U) =,, Z ,, set @prior_source_indicator = 
@prior_source_indicator + substring(@avail_key, @i,l) 
end -while 

if @verbose <> 0 print "Prior Source Indicator => " + @prior_source_indicator 
-set source name from renewal table 

-if the number of schemes is > 1 then the source is split - a match must occur 
if @src_cat_name = "RENEWALS" and @number_of_valid_schemes > 1 set 



@source_name = null 



if @src_catname = "RENEWALS" select @source_name = source_name 

from autosetup_renewaI_psdef 
where product_id = @product_id 
and src_cat_name = "RENEWALS" 
and patindexC 0 /©* + 



substring(@avail_key,l,l) + '%', source_indicator) > 0 

substring(@avail_key, 1,1) 
@prior_source_indicator 



and @dt_valid_to >= valid_from_date 
and @dt_valid_to <= valid_to_date 
—and source_indicator = 

—and prior_source_indicator = 

and patindexC%' + @prior_source_indicator 
+ *%\ prio^source^indicator) > 0 

if @verbose o 0 print "Source Name => " + @source_name 
if @source_name is null and @verbose o 0 print "No match to prior source in 
the psdef table!"— if no match was made, move to next scheme 
else 
.begin 

-if a campaign exists use it, if not then create campaign 
set @rec_id = null 
select @rec_id = rec_id 

from campaigns 

where (campaign_code = @campaign_code or camp_name = 

@camp_name) 

and src_indicator = @src_indicator 
and src_cat_name = @src_cat_name 
and productjd = @product_id 
and source_name = @source_name 
-and campjiate_fr <= @dt_valid_to 
—and camp_date_to >= @dt_valid_to 

if @rec_id is not null 

select @camp_name = camp_name 
from campaigns 
where rec_id = @rec_id 

if @rec_id is null and @verbose o 0 print "Campaign Not Found!" 

if not (@rec_id is null) and @verbose o 0 print "Campaign Rec ID 
=> " + cast(@rec_id as varchar(50)) 

select @title_name = title_name 
from corp_info 

where product_id = @product_id 
if @verbose o 0 print "Title Name => " + @title_name 

if (@rec_id is null) -no campaign exists, create one; add row to 

campaign def 
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begin 



insert into campaigns 

select @src_indicator as src_indicator 

, @src_cat_name as src_cat_name 

, @product_id as productjd 

, "Undefined" as camp_type 

, @camp_name as camp_name 

, "Undefined" as campstatusname 

, null as agt_code 

, null as agt_descr 

, @camp_date_fr as camp_date_fr 

, null as camp_date_to 

, @e_set_name as e_set_name 

, "Undefined" as r_set_name 

, @grp_name as grp_name 

, @title_name as title_name 

, @source_name as source_name 

, null as newstand_sale 

, null as budgeted j*ross_pct 

, null as budgeted_vol 

, @campaign_code as campaign_code 

set @rec_id = null 
select @rec_id = rec_id 

from autosetup_campaign_def 

where product_id = @product_id 

and campaign_code = @campaign_code 

and src_cat_name = @src_cat_name 
if @rec_id is null 

insert into autosetup_campaign_def 

(product_id 

, campaign_code 

, campaign_description 

, src_cat_name 

, campaign_date 

, panel_scheme) 

values (@product_id 

, @campaign_code 

, @camp_name 

, @src_cat_name 

, @camp_datejr 

, null) 

end —if 

—ok, campaign is done, now for the panel 
-Check for panel naming scheme 
set @panel_scheme = null 
set @panel_code = null 

exec concat_p_codes @setup_mask, @avail_key, @panel_code output 

select @panel_scheme = panel_scheme 
from autosetup_campaign_def 
where product_id = @product_id 
and campaign_code = @campaign_code 
-and campaign_description = @campaign_description 
and src_cat_name = @src_cat_name 
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-and campaign_date = @camp_date_fr 
if @verbose o 0 print "Panel Scheme => " + @panel_scheme 

if @panel__scheme is not null and @panel_code is not null -use panel 

begin 

set @panel_name = null 
select @panel_name = panei_name 
from autosetup _panel_def 
where product_id = @product_id 
and panel_scheme = @panel_scheme 
and patindexC%' + @panel_code + *%', panel_codes) 

— gw print statement below 

if @verbose o 0 print "Panel Name => " + @panel_name 
end 

if @panel_scheme is null or (@panel_scheme is not null and 
scheme is not null and @panel_name is null)-build panel name from 

begin 

if not(@panel_code > H ") set @panel_name = "Control" 
else set @panel_name = "Panel " + @panel_code 
if @verbose o 0 print "Panel Name => " + @panel_name 

end - if 

—check to see if a panel exists 
set @rec_id = null 
select @rec_id = rec_id 
from panels 

where campaign_code = @campaign_code 
and src_indicator = @src_indicator 
and panel_code = @panel_code 
and src_cat_name = @src_cat__name 
and source_name = @source_name 
and producMd = @product_id 
-check for unique panel name 
if @rec_id is null select @rec_id = rec_id 
from panels 

where panel_name = @panel_name 
and camp_name - @camp_name 
and src_indicator = @src_indicator 
and source_name = @source_name 
and paneljiame = @panel_name 
and src_cat_name = @src_cat_name 
and product_id = @product_td 
if @verbose o 0 Print "Panel ID (null means create a new one) => " 
+ cast(@rec_id as varchar(50)) 

if (@rec_id is null) -then panel does not exist so create it 
begin 

insert into panels 

select @camp_name as camp_name 
, @src_indicator as src_indicator 
, @panel_name as panel_name 
, @src_cat_name as src_cat_name 
, @product_id as product_id 



scheme to determine panel name 



>0 



@panel_code is null) or (@panel_ 
default 
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"Undefined" as panei type 
@e_set_name as e_set_name 
"Undefined" as panelsubtype 
"Undefined" as r_set_name 
"Undefined" as test_type 
null as panel offer 
null as panel_offer_price 
"Undefined" as panel_pkg 
null as panel_premium 
null as pane l_date_s tart 
null as panel_date_end 
@grp_name as grp_name 
@title_name as title_name 
@source_name as source_name 
"Undefined" as camp_type 
"Undefined" as camp_status_name 
null as agt_code 
null as agt_descr 

@valid_from_date as camp_date_fr 
@valid_to_date as camp_date_to 
null as newstand_sale_marker 
null as newstand_sale 
null as budgetedjgross_pct 
null as budgeted_voI 
@campaign_code as campaign_code 
@panel_code as panel_code 
null as order_qty 
null as dist_qty 



end -if 

set @rec_id = null 

if @verbose o 0 print "Assigning key to keys table ..." 

-OK, now add the key to the keys table 

if @verbose o 0 print "Expense set name > " + @e_set_name 

if (@e_set_jiame- 0') or (@e_set_narne is null) set @e_set_jiame = 



select @avail_key as fiill_promo_key 

i @dt_valid_to as dt_valid_to 

, @panel_name as panel_name 

, @camp_name as camp_name 

, @dt_valid_to as dt_valid_from 

, @src_indicator as src_indicator 

, @src_cat_name as src_cat_name 

, @product_id as product Jd 

, @e_set_name as e set name 

, null as listjd 

, 0 as level l_expense 

, null as Iist_cost_rollout_cpm 

, null as list_cost_actual_cpm 

, null as fixed_expense 

, True' as subtotaMlag 

, 0 as level2_expense 

, "Undefined" as r_set_name 

, 0 as level3_expense 



"Undefined" 



insert into keys 
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, 0 as Ievell_revenue 
, 0 as Ievel2_re venue 
, 0 as Ievel3_revenue 
, null as p_key_descr 
, "Undefined" as paneMype 
, "Undefined" as panel_subtype 
, "Undefined" as test_type 
, null as panel_offer 
, null as panel_orTer_price 
, "Undefined" as panei_pkg 
, null as panel_premium 
, null as panel_date_start 
, null as panel_date_end 
i @grp__name as grp_name 
, @title_name as title_name 
, @source__name as source_name 
, "Undefined" as camp_type 
, "Undefined" as camp_starus_name 
, null as agt_code 
, null as agt_descr 
, null as camp_date_Jr 
, null as camp_date_to 
, @mail_qty as key_mailjqty 
, null mail_qty_override 
, null as merge_purge_qty 
, "Mail Qty" as list_cost_basis 
, 1 as list_cost_factor . 
, "Undefined" as list_cat_name 
, "Undefined" as list_name 
, "Undefined" as list_segment_name 
, null as optional_effort_id 
, null as newstand_sale 
, "N" as newstand_sale_marker 
, null as budgeted_gross_j)ct 
, null as budgeted_vol 
, getdateO as date_assigned 
, @campaign_code as campaign_code 
, @panel_code as panel_code 
, "Auto Setup" as dbusername 
, null as order_qty 
, null as dist_qty 

end — if 

end - if, no matching source name 

if @verbose o 0 print "Getting next avail key ..." 
fetch next from avail_keys into @product_id, @availjcey, @fijlfillment_house, @dt_validjo, 
@source_identifier, @mail_qty 
end -while 
close avail_keys 
deallocate avail_keys 
delete from avail_keys 

where exists 

(select * 

from keys k 

where k.full_promo_key = avail Jceys.full_promo_key 
and k.product_id = avail_keys.product_id) 
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if @verbose o 0 print "All done! 

end 
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Procedure Name: Ca sea de up date 



@fleld_name VARCHAR(IOO), 
@old_fleid_value VARCHAR(200), 
@new_field_value VARCHAR(200), 
©level VARCHAR(30), 
@product_id Numeric(9) 
AS 

declare @sql NVarchar(200) 

-print @field_name + " " + @field_value 

IF @level = "KEYS" or @level ="PANELS" or @level=" CAMPAIGNS" 
begin 

set @sql = 'UPDATE keys SET * + @field_name + ' = @new_value where '+ @field_name + ' = ' 
@old_value 1 
if @product_id o -1 
begin 

set @sql = @SQL + * and Product_id = ' + cast(@product_id as VARCHAR) 
end 

exec sp_executesql @Sql, N'@new_value VARCHAR(200), @old_value 
VARCHAR(200) , ,@new_fieId_value,@old - field_value 
END 

IF @level ="PANELS" or @level= M CAMPAIGNS" 
BEGIN 

set @sql = 'UPDATE panels SET ' + @field_name + ' = @new_value where '+ @field_name + * = 
@old_value ' 
if @product_id o -1 
begin 

set @sql = @SQL + ' and Product_id = ' + cast(@productjd as VARCHAR) 
end 

exec sp_executesql @Sql, N'@new_value VARCHAR(200), @old_value 
VARCHAR(200)',@new_field - value,@oId_field_value 
END 

IF @level="CAMPAIGNS" 
BEGIN 

set @sql = 'UPDATE campaigns SET ' + @field_name + ' = @new_value where '+ @field_name + 1 = 
@old_vaIue * 
if @product_id o -1 
begin 

set @sql = @SQL + ' and Product_id = ' + cast(@product_id as VARCHAR) 
end 

exec sp_executesql @SqI, N'@new_value VARCHAR(200), @old_value 
VARCHAR(200)*,@new_field_value,@old_field_vaIue 
END 
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Procedure Name: Concat_c_codes 

@setup_mask varchar(50) 

, @avail_key varchar(50) 

, @campaign_code varchar(50) output as 

—local vars 
declare @i int 



begin 

set @i = 0 

set @campaign_code ~ 

while @i < len(@setup_mask) -loop through each char in mask and add to camp code where 
mask letter is a C 
begin 

set @i = @i + 1 

-select @i, substring(@setup_mask, @i, I), substring(@avail_key, @i,l) 
if substring(@setup_mask, @i,l) = "C" set @campaign_code = @campaign_code + 
substring(@avail_key, @i,l) 

end —while . 
—return @campaign_code 
end — concat c codes 
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Procedure Name: concat_p_codes 

@setup_mask varchar(50) 

, @avail_key varchar(50) 

, @panel_name varchar(50) output as 

-local vars 
declare @i int 



begin 

set @i = 0 

set @panel_name = "" 

print "Entering concat p codes..." 

print "setup mask is => " + @setup_mask 

print "Avail key is => " + @avail_key 

-print "panel name is => " + @panel_name 

while @i < len(@setup_mask) -loop through each char in mask and add to panel name where 
mask letter is a P 
begin 

set @i = @i + 1 

-select @i } substring(@setup_mask, @i, 1), substring(@avail_key, @i,l) 
if substring(@setup_mask, @i,l) = "P" set @panel_name = @panel_name + 
substring(@avail_key, @i,l) 

-print "Panel is now => " + @panel_name 
end —while 

print "Panel is now => " + @panel_name 
end -concat p codes 



Integrated Marketing Technology 



9/27/00 3:38 PM 



Page 18 of 142 



IMT Subscription Marketing Reporting System 



Procedure Name: Create_rl01_topline 



truncate table rl0l_topline 

INSERT INTO rlOljopline 

Select keys.Product_id as Product_id, 

keys.src_cat_name as src cat name, 

keys.source_name as source_name, 

keys.camp_name as camp_name, 

— summary fields 

sum(rl01.gross_subs) AS gross_subs, 

sum(rl01.tot_net_subs) AS tot_net_subs, 

min(keys.carnp_date_fr) AS camp_date_fr, 

max(keys.budgeted_gross_pct) AS Budgeted_jross_pct, 

max(keys.Budgeted_vol) AS Budgeted_vol, 

sum(rl01.mail_gty) promo_qty 
FROM keys keys, r 1 0 1 r 1 0 1 , est_max_effort est_max_effort 
WHERE keys.full_promo_key = rl01.rl01_key 
AND keys.product_id = r 10 1 .product_id 

— keys to rlOl 

AND r 1 0 1 .product_id = est_max_effort.product_id 

AND rl01.source_IDENTIFIER = est_max_effort.souce_IDENTIFIER 

AND rlOl.issueJDENTIFIER = est_max_effortissue_IDENTIFIER 

- other stuff 

AND rl01.prior_source_IDENTIFIER = est_max_effortprior_sourceJDENTIFIER 

and keys.src_cat_name = 'Renewals' 

AND rl01.effort_identifier = est_max_effortmax_effort 

GROUP BY keys.Product_id, 

keys.src_cat_name, 

keys.sourcename, 

keys.camp_name 



Insert into rlOljopline 
else case .... 



Select keys.Product_id as Product_id, 

keys.src_cat_name as src_cat_name, 
keys.source_name as source_name, 
keys. cam p_name as camp_name, 
- summary fields 

sum(rlOl.gross_subs) AS gross_subs, 
sum(rl01.tot_net_subs) AS tot_net_subs, 
min(keys.camp_date_fr) AS camp_date_fr, 
max(keys.budgeted_gross_pct) AS Budgetedj^rossjct, 
max(keys.Budgeted_vol) AS Budgeted_vol, 
0 promo_qty 

FROM keys keys, rlOl rlOl, est_max_effort estjnax_effort 
WHERE keys.fiill - promo_key = rlOl.rlOlJcey 
AND keys.productjd = rlO 1 .product_id 

- keys to rlOl 

AND rlOl.productJd = est_max_effortproduct_id 

AND rlOl.sourceJDENTIFIER = est_max_effort.souce_IDENTIFIER 

AND rlO 1 .issue ^IDENTIFIER = est_max_effort.issue_IDENTIFIER 

AND rI01.prior_source_IDENTIFIER = est_max_efFort.prior_sourceJDENTIFIER 

- other stuff 
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and keys.src_cat_name = 'Renewals* 

AND rlOl.effortJdentifier o est_max_effort.max_effort 

GROUP BY keys.ProductJd, 

keys.src_cat_name, 

keys.source_name, 

keys.camp_name 

INSERT INTO R101JTOPLINE 
Select keys.Product_id as Productjd, 

keys.src_cat_name as src_cat_name, 

keys.source name as source_name, 

keys. cam p_name as camp_name, 

- summary fields 

sum(r 1 0 i .gross_subs) AS gross_subs, 

sum(rlOl.tot_net_subs) AS tot_net_subs, 

min(keys.camp_date_fr) AS camp_date Jx, 

max(keys.budgeted _gross_pct) AS Budgeted _gross_pct, 

max(keys.Budgeted_vol) AS Budgeted_vol, 

sum(newstand_sale) promo_qty 
FROM keys keys, r 1 0 1 r 1 0 1 , est_max_effort est_max_effort 
WHERE keys.fulljromo_key = rl0i.rl01_key 
AND keys.productjd = r 1 0 1 .product_id 

— keys to rlOl 

AND rl01.product_id = est_max_effort.product_id 

AND rlOI.sourceJDENTIFIER = est_max_effortsouceJDENTIFIER 

AND rlOl.issueJDENTIFIER = est_max_effortissue_IDENTIFIER 

AND rl01.prior_sourceJDENTIFIER = est_max_effort.prior_sourceJDENTIFIER 

— other stuff 

and keys.src_cat_name o 'Renewals' 
AND keys.subtotal Jlag = 'true' 
and Newstand_sale_marker = 'Y' 
GROUP BY keys.Product_id, 

keys.src_cat_name, 

keys.source_name, 

keys.camp_name 
INSERT INTO R101_TOPLINE 
Select keys.ProductJd as Productjd, 

keys.src_cat_name as src_cat_name, 

keys.source_name as source_name, 

keys.camp_name as camp_name, 

- summary fields 

sum(rl01.gross_subs) AS gross_subs, 

sum(rl01.tot_net_subs) AS tot_net_subs, 

min(keys.camp_date_fr) AS camp_date_fr, 

max(keys.budgetedjgross_pct) AS Budgeted _gross_pct, 

max(keys.Budgeted_vol) AS Budgeted_vol, 

sum(newstand_sale) promo_qty 
FROM keys keys, rlOl rlOl, est_max_effort est_max_effort 
WHERE keys.full jromo_key = rl0l.r!01_key 
AND keys.productjd = r 1 0 1 .product jd 

— keys to rlOl 

AND rlOl.product_id = est_max_effort.product_id 

AND rlOI.sourceJDENTIFIER = est_max_efrort.souceJDENTIFIER 

AND rlOl.issueJDENTIFIER = estjnax_effort.issueJDENTIFIER 

AND rl01.prior_sourceJDENTIFIER = est_max_effort.prior_sourceJDENTIFIER 
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— other stuff 

and keys.src_cat_name o 'Renewals' 
AND keys.subtotal flag = 'true* 
and Newstand_sale_marker = 'Y' 
GROUP BY keys.Product_id, 

keys.src_cat_name, 

keys.source_name, 

keys.camp_name 

INSERT INTO R101_TOPLINE 
Select keys.Product_id as Product_id, 

keys.src_cat_name as src_cat_name, 

keys.source_name as source name, 

keys.camp_name as camp_name, 

— summary fields 

sum(rlOl.gross subs) AS gross subs, 
sum(rl01.tot_net_subs) AS tot_net_subs, 
min(keysxamp_date_fr) AS camp_date_fr, 
max(keys.budgetedjgross _pct) AS Budgeted j^rossjct, 
max(keys.Budgeted_vol) AS Budgeted_vol, 
0 promo_qty 

FROM keys keys, rlOl rlOl, est_max_effort est_max_effort 
WHERE keys.rull_promoJcey = rlOl.rlOlJcey 
AND keys.product_id = rlOl.productjd 
-keystorlOl 

AND rlOl.productjd = est_max_effort.product_id 

AND rlOl.sourceJDENTIFIER = est_max_effort.souce_IDENTIFIER 

AND rlOl.issueJDENTIFIER = est_max_effort.issue_IDENTIFIER 

AND rl01.prior_source_IDENTIFIER = est_max_effort.prior_sourceJDENTIFIER 

- other stuff 

and keys.src_cat_name o 'Renewals' 
AND keys.subtotal_flag = 'true' 
and Newstand_sale_marker = W 
GROUP BY keys.Productjd, 

keys.src_cat_name, 

keys, source jiame, 

keys.camp_name 



INSERT INTO R101_TOPLINE 
Select keys.Productjd as Productjd, 

keys.src_cat_name as src_catjiame, 

keys.source_name as source jiame, 

keys.camp_name as camp_name, 

- summary fields 

sum(rl01.gross_subs) AS gross_subs, 
sum(r 1 0 1 .tot jiet_subs) AS tot jiet_subs, 
min(keys.camp_date_fr) AS camp_date_fr, 
max(keys.budgeted_gross_pct) AS Budgeted ^oss j>ct, 
max(keys.Budgeted_vol) AS Budgeted_vol, 
sum(keys.mail_qty_override) promo_qty 

FROM keys keys, rlOl rlOl, estjnax_effort est_max_effort 

WHERE keys.fulljromojcey = rl01.rl0l_key 

AND keys.product_id = r 1 0 1 .product_id 
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-keystorlOl 

AND rl01.product_id = est_max_effort.product_id 

AND rlOl.sourceJDENTIFIER = est_max_effort.souce_IDENTIFIER 

AND rlOl.issueJDENTIFIER = est_max_efFort.issueJDENTIFIER 

AND rl 01. prior jsourceJDENTIFIER = est_max_effort.prior_sourceJDENTIFIER 

- other stuff 

and keys.src_cat_name o 'Renewals' 
AND keys.subtotal_flag = 'false' 
and keys.mail_qty_override > 0 
GROUP BY keys.ProductJd, 

keys.src_cat_name, 

keys.source_name, 

keys.camp_name 



INSERT INTO R101_TOPLINE 
Select keys.ProductJd as Productjd, 

keys.src_cat_name as src_cat_name, 

keys.source_name as source_name, 

keys.camp_name as camp_name, 

— summary fields 

sum(rl 0 1 .gross_subs) AS gross_subs, 

sum(r!01.tot_net_subs) AS tot_net_subs, 

min(keys.camp_date_fr) AS camp_date Jr, 

max(keys.budgetedjgross_pct) AS Budgetedjgross_pct, 

max(keys.Budgeted_vol) AS Budgeted_vol t 

sum(keys.key_mail_qty) promo_qty 
FROM keys keys, r 1 0 1 r 1 0 1 , est_max_e ffort est_max_efTort 
WHERE keys.fulljromo_key = rlOl.rlOl Jcey 
AND keys.productJd = r 1 0 1 .product_id 
— keys to rlOl 

AND rl01.product_id = est_max_effort.product id 

AND rlOl.sourceJDENTIFIER = est_max_effort.souce_IDENTIFIER 

AND rlOl.issueJDENTIFIER = est_max_effort.issueJDENTIFIER 

AND rl01.prior_source_IDENTIFIER = est_max_efTort.prior_source_IDENTIFIER 

other stuff 
and keys.src_cat_name o 'Renewals' 
AND keys.subtotal_flag = 'false' 
and keys.mail_qty_override <= 0 
GROUP BY keys.Product_id, 

keys.src_cat_name, 

keys.source_name, 

keys.camp_name 
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Procedure Name: del_key 



/****** Object: Stored Procedure dbo.delJCey Script Date: 1/14/99 3:43:07 PM ******/ 
/***♦*♦ Object: Stored Procedure dbo.del_Key Script Date: 1/12/99 1 1:05:37 PM ******/ 
CREATE PROCEDURE delJCey 

@full_promo_key varchar (25),@product_id numeric(8,2) 

AS 

delete from keys where product_id=@product_id and full_promo_key = @full_promo_key 
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Procedure Name: do lOlflow seldatefix 



@product_id numeric(9,2), - product_id 

@Promo_Key varchar(25), - promo key being inserted 

@reorg_date smalldatetime, — the reorg date from the file that the key comes.from 
@import_file_type char(l)- the type of import file i.e. new business/cds , etc. 



AS 
declare 

-execute dol01_flow_selDateFix @product_id, @Promo_Key, @reorg_date 

@nPromo_Key varchar(25), - promo_key minus the right 6 characters + @maxSel_Date + 

@ePromo_Key varchar(25) t - existing modified promo key from a prior calculation 
@Key_Length integer, 

@maxSel_Date smalldatetime - max select date if prior same key exists 
select @nPromo_Key = len(@Promo_Key) -promojcey length 

If(@import_fiIe_type =*C) 

BEGIN 

declare c_flow cursor for 

select max(select_date) m, rl01_key from rl01_flow where 
productjd = @product_id and 

rl01_key like (substring(@Promo_Key,l,@nPromo_Key-9) +'[JG[J%') and 

(len(rlOI_key) > 17 OR IMPORT_file_type -C) group by select_date,rlOI_key order by m desc 

print 'searching for key match on C imp file type* 

END 

else 

BEGIN 

declare c_flow cursor for 

select max(select_date) m, rlOlkey from rl01_flow where 

product id = @product_id and rlOI_key like (substring(@Promo_Key, 1 ,@nPromo_Key-6) +'%') 
and len(rl01_key) < 18 group by select_date,rl01_key order by m desc 

END 
open c_flow 

fetch c_flow into @maxSe!_Date, @ePromo_Key 
-print 'fetch_status- + convert(varchar,@@fetch_status) 
If (@@fetch_status = 0) 
BEGIN 

If (@maxSeI_Date > DATEADD(day,-555,getDate())) 
BEGIN 

print convert(varchar, @maxSel_Date) + 'fetch status = match found(O)' 

update rl01_flow set select_date = @maxSel_Date, rlOlJcey = @ePromo_Key 

where product_id = @product_id and r 10 1 Jcey=@Promo_Key 

close c_flow 

deallocate c_flow 

return 

END 

ELSE - no prior matching keys or select date is null 
BEGIN 

print 'appending date to key' 

select @maxSel_Date = @reorg_date 

update rlO Inflow set select_date = @maxSel_Date, 

rl0l_key = (substring(@Promo_Key, 1 ,@nPromo_Key-6) + CONVERT (varchar, 
@maxSel_Date , 101)+'*') 

where productjd = ©product Jd and rl01_key^@Promo_Key 
close c flow 
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deallocate cflow 

return 

END 

END 
close c_Jlow 
deallocate c_flow 
return 
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Procedure Name: doavai!401keys 



begin -sp 

declare @r40I_key varchar^), @select_date smalldatetime^bii^mailed numeric(12 y 2),@productjd 
numeric(8,0), @full_promoJcey varchar(25) 1 @dt_valid_to smalldatetime,@source_identifier. 
char( 1 ),@keyCount numeric(8,0), @import_file_type char( 1 ) 
declare @fulfillment_house varchar(50) 

set nocount on 

/*add for product id smarts */ 

declare c_r40 1 cursor for /* r40 1 recordset - the main/reference one */ 
select r401_key,select_date,bills_mailed > product_id ) source_identifier, import_file_type from 
r401_summary where not exists 
(select * from keys k 

where k.fuIl_promo_key = r401_summary.r401_key and k.productjd = 
r40 l_summary.product_id) order by product_id, r40 l_key 
openc_r401 

fetch c_r401 into @r401_key,@select_date,@bills_mailed,@product_id,@source_identirler, 
@import_fi letype 

while (@@fetch_status = 0) 
begin 

Insert into avail_keys (rull_j)romo_key - 1 

,dt_valid_to -2 
,mail_qty -3 
,product_id —4 
,source_identifier -5 
,positionl -6 
,position2 -7 
,position3 -8 
,position4 -9 
,position5 -10 
,position6 —11 
,position7 —12 
,position8 -13 
,position9 -14 
position 10 -15 
,fuIfiIlment_house ) -16 

values 

(@r401_key -1 

,IShOJLL(@select_date f getDateO) -2 
,@bills_mailed -3 
,@product_id -4 
,@source_identifier —5 
,SUBSTRING(@r401_key,I,l) -6 
,SUBSTRING(@r40 l_key,2, 1 ) -7 
,SUBSTRING(@r40 1 Jcey,3, 1 ) -8 
,SUBSTRING(@r401_key,4 f l) -9 
,SUBSTRING(@r40 l_key,5, 1 ) - 1 0 
,SUBSTRJNG(@r40 l_key,6, 1 ) -11 
,SUBSTRING(@r40 1 _key,7, 1 ) - 1 2 
,SUBSTRJNG(@r40 1 _key,8, 1 ) - 1 3 
,SUBSTRJNG(@r401_key, 9,1) -14 
,SUBSTRING(@r401_key, 10,1) -15 
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, case @import_file_type 

when 'A' then 'CENTROBE' 
when *B' then 'CENTROBE' 
when 'C then 'CENTROBE* 
when 'E' then 'CENTROBE' 
when *P then 'CDS' 
when 'G* then 'CDS' 
when 'H' then 'CDS' 
when T then 'PALM COAST 
when 'J' then 'PALM COAST 
when 'K' then 'PALM COAST 
else null 



fetch c_r401 into @r401_key,@select_date,@bills_mailed,@product_id,@source_identifier, 
@import_fi le_type 
end 

close c_r401 
deallocate c_r401 

delete from avail keys where exists 
(select * from keys k 

where k.fullj3romo_key = avail_keys.full_promo_key and k.product_id = avail_keys.product_id) 

end -sp 

exec autosetup wizard 1, -1 — 1 to display text (zero suppresses), -1 for all products 
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Procedure Name: dovailkeysbypid 



@PID numeric(9,0) 



AS 



declare @rl01_key varchar(25) ) @select_date smalldatetime > @mail_qty numeric(12 t 2),@productjd 
numeric(8,0), @fiill_promo_key varchar(25),@dt_valid_to smalldatetime,@source_identifier 
char( 1 ),@keyCount numeric(8,0) 
set nocount on 

/*add for product id smarts */ 

declare c_rl01 cursor for /* rlOl recordset - the main/reference one */ 

select distinct rlO^key^elec^date.mai^qty^roductJd^sourcejdentifier from rlOl where 
product_id = @PID order by product_id 
/♦declare c_keys cursor for 

select count(full_promo_key) from keys where product_id=@product_id and full _promoJcey = 
@rl01_keyV 

openc_rl01 

fetch cjiOl into @rl01_key,@select_date,@mail_qty,@product_id,@source - identifier 

delete from avail_keys where product_id = @PID /*delete all existing avaiMceys from avail_keys list*/ 

while (@@fetch_status = 0) 
begin 

Insert into avail keys (njll_promo_key,dt_valid_to,mail_qty,product_id,source_identifier 1 
position 1 ,position2,position3,position4,position5,position6, position7, 
position8,position9,positionl0 ) values 

(@rl01J<ey,DATEADD(monm,20,ISNU^ 
identifier, 

SUBSTRmG(@r 1 0 1 _key J , I ),SUBST^ 
SUBSTRING(@r 1 0 1 _key ,4, 1 ),SUBSTRING(@r 1 0 1 _key,5, 1 ), 
SUBSTRmG((2^ 1 0 1 _keyA 1 ),SU 

isnull(SUBSTRING(@rl01_key,9,l), null), ISNULL(SUBSTRING(@rl0i_key,10,l),nuIl) ) 

fetch cjiOl into (grlO^key^select^date^mail^qty^producMd^source^identifler 
end 

close c_rl01 
deallocate c_r 1 0 1 

delete from avail_keys where exists 
(select * from keys k 

where k.full_promo_key = avail_keys.fiiII_promo_key and k.product_id = avail_keys.product_id) 
print 'Attempting to Execute doAvail401KeysByPID' 
execute doavail401keysbypid @PID 
return 
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Procedure Name: dovail401keysbypid 



@PID numeric(9,0) 
AS 

declare @r401_key varchar^S), @select_date smalldatetime,@bills_mailed numeric(12,2),@product_id 
numeric(8,0), @full_promo_key varchar(25) ) @dt_vaIid_to smalldatetime,@source_jdentifier 
char(l),@keyCount numeric(8,0) 
set nocount on 

/*add for product id smarts */ 

declare c_r401 cursor for /* r401 recordset - the main/reference one */ 

select distinct r401_key,select_date,bills_mailed,product - id,source identifier from r401_summary 
where produced = @PID order by product_id 

open c_r401 

fetch c_r401 into @r401_key,@select_date ) @bills_mailed,@product_id 1 @source_identifier 
while (@@fetch_status = 0) 



Insert into availjceys (fiill_promo_key,dt_valid_to,mail_qty,product_id,source_identifier, 
positionl,position2,position3,position4,position5,position6, position7, 
position8,position9,positionI0 ) values 

(@r40 1_key,DATEADD(monm,20 JSW^ 
ce_identifier, 

SUBSTRING(@r40 1 _key f 1 , 1 ),SUBSTRING(@r40 l_key,2, 1 ),SUBSTRJNG(@r40 1 Jcey,3, 1 ), 
SUBSTRING(@r40 1 _key,4, 1 ),SUBSTRING(@r40 1 Jcey,5, 1 ), 

SUBSTRJNG(@r40 l_key,6, 1 ),SUBSTRING(@r40 l_key,7, 1 ),SUBSTRING(@r40 1 _key,8, 1 ), 
isnull(SUBSTRING(@r401_key,9,I), null), ISNULUSUBSTRTNGC^OLkeyJO.lXnull) ) 



fetch c_r401 into @r401_key,@select_date,@bills_mailed,@product_id,@sourcejdentifier 
end 

close c_r401 
deallocate c_j401 

delete from availjceys where exists 
(select * from keys k 

where k.fuIl_promo_key = avail_keys.fiill_promo_key and k.productjd = avail_keys.product_id) 

return 



begin 
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Procedure Name: dovailkeys 

declare @rl01_key varchar(25), @fuIfillment_house varchar(50), @select_date smalldatetime,@mail_qty 
numeric(12,2),@product_id numeric(8,0), @fuli_promo_key varchar(25),@dt_valid_to 
smalldatetime,@source_identifier char( 1 ),@keyCount numeric(8,0) 
set nocount on 

/*add for product id smarts V 

declare c rlOl cursor for /* rlOl recordset - the main/reference one */ 

select rl01_key,select_date,mail_qty,productjd,sourcejdentifier, fulfillment_house fromrlOl where not 
exists 

(select * from keys k 

where k.full_promo_key = rl01.r!01_key and k.product_id = rl 01. product jd) order by 
product_id, r 1 0 1 _key 
/♦declare c keys cursor for 

select count(fiiIl_promo_key) from keys where product_id=@product_id and full_promo_key = 
@rl01_keyV 

openc_rl01 

fetch cj\Q\ into @rl01_key,@select_date ) @mail_qty,@productjd,@source_identifier, 
@fulfillment_house 

truncate table avail_keys /^delete all existing avail_keys from avail_keys list*/ 
while (@@fetch_status = 0) 



—print "inserting into avail keys => " + @rl01_key 

Insert into avail keys (full_promo_key J dt_vaIid_to,mail - qty,product_id,source_identifier, 
positionl,position2,position3,position4 ) position5,position6, position7, 
position8,position9,positionl0, fulfillmentjiouse ) values 

(@r 1 0 1 _key ) ISNULL(@select_date,getDateO),@rnail_qty,@product_id,@source_identifier, 
SUBSTRJNG(@r 1 0 1 _key, 1 , 1 ),SUB STRING(@r 1 0 i _key,2, 1 ),SUB STRJNG(@r 1 0 1 _key,3 , 1 ), 
SUBSTRING(@r 1 0 l_key,4, 1 ),SUBSTRlNG(@r 1 0 i_key,5, 1 ), 
SUBSTRING(@rl01JceyAl),S^ 

SUBSTRING(@rl01Jeey f 9,l) f SUBSTRING(@rl01_key,10,l), @fulfillment_house) 

fetch cj*101 into 
@rl01_key,(^elect_date,@m 
end 

close c_rl 01 
deallocate c_rl 01 

delete from availjceys where exists 
(select * from keys k 

where k.fulI_promo_key = avail_keys.fiiIl_promo_key and k.productjd = avail_keys.product_id) 

-exec autosetup_wizard 
exec doavail40 1 keys 
return 



begin 
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Procedure Name: docampesets 



declare c_camp cursor for 

select product^djCamp name, e set name from campaigns where e_set_name > * ' 

declare @product_id decimal(9), @camp_name varchar(250), @e_set_name varchar (50) 
open c_camp 

fetch ccamp into @product_id, @camp_name, @e_set_name 

while (@@fetch_status - 0) 
begin 

/♦UPDATE panels SET e_set_name = @e_set_name WHERE CURRENT OF c _panel*/ 
update keys set e_set_name-@e_set_name where product_id = @product_id and camp_name = 
@camp_name and (keys.e_set_name < ' 1 or keys.e_set_name is null) 

fetch c_camp into @product_id, @camp_name, @e_set_name 
end 

close c_camp 
deallocate c_camp 

return 
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Procedure Name: docamprsets 

declare c_campr cursor for 

select product_id,camp_name, rsetname from campaigns where r_set_name > ' ' 

declare @product_id decimal(9), @camp_name varchar(250), @r_set_name varchar (50) 
open c_campr 

fetch c_campr into @product_id, @camp name, @r_set_name 

while (@@fetch_status = 0) 
begin 

/* UPDATE panels SET e_set_name = @e_set_name WHERE CURRENT OF c_panel*/ 
update keys set r_set_name=@r_set_name where product_id = @product_id and camp_name = 
@camp_name and (keys.r_set_name < ' 1 or keys.r_set_name is null) 

fetch c campr into @product_id, @camp_name, @r_set_name 
end 

close c_campr 
deallocate c_campr 



return 
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Procedure Name: doest max effort 



begin 

truncate table est_max_EFFORT 
rNSERT INTO est_max_EFFORT 
select estjnax 1 .product id, 

estjnax 1 .source identifier, 

estjnax 1 .issue_identifier, 

estjnax 1 .prior_source jdentifier, 

min(estjnaxl .effort jdentifier), 

min(est_max I .sum_mail_qty) 
FROM v_est_maxl est_maxl, v_est_max2 est_max2 
WHERE est_maxl.sum_mail_qty = est max2. estjnax 
and est_maxl .source_identifier = estjnax2.source_identifier 
and est_maxl .issue_identifier=est_max2.issue_identifier 
and est_max 1 .prior_source ^identifier = est_max2.prior_source_identifier 
GROUP by est jnaxl. product jd, 

estjnax 1 .source jdentifier, 

est_max 1 . issue_identifier, 

est_max 1 .prior_source_identifier 
end 



return 
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. CREATE PROCEDURE doMW AS 

declare @product_id numeric(8,0), @stat_name varchar(50) 
• /* */ 
declare c_ cursor for 

select productid from corpinfo 
declare cwork cursor for 

select r_set_name from revenue_sets where product_id = @product_id and r_set_name : 
'Undefined' 
open c_ 

fetch c_ into @product_jd 



delete from revenue_sets where r_set_name = 'Undefined' 
delete from revenue_sets where r_set_name = 'UNDEFINED' 

while (@@fetch_status = 0) 
begin 

open c_work 

fetch c_work into @stat_name 

If (@@fetch_status o 0) 
begin 

Insert into revenue_sets (product_id, r_set_name) values ((ajproduct^id/Undefined') 

close c_work 

end 

else 

begin 

close c_work 
end 

fetch c_ into @product_id 
end 

close c_ 
deallocate c_ 
deallocate c work 



update campaigns set r_set_name = 'Undefined' where r_set_name is null 
update campaigns set r_set_name = 'Undefined* where r_set_name = " 
update panels set r_set_name = 'Undefined' where r_set_name is null 
update panels set r_set_name = 'Undefined' where r_set_name = " 
update keys set r_set_name = 'Undefined' where r_set_name is null 
update keys set r_set_name = 'Undefined' where r_set_name = n 
return 
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Procedure Name: doPanelESets 



declare c_panel cursor for 

select product_id,panel_name, e_set_name from panels where e_set_name > ' ' 

declare @product_id decimal(9), @panel_name varchar(250), @e_set_name varchar (50) 
open c_panel 

fetch c_panel into @product_id, @panel_name, @e_set_name 

while (@@fetch_status = 0) 
begin 

/♦UPDATE panels SET e_set_name = @e_set_name WHERE .CURRENT OF c_panel*/ 
update keys set e_set_name=@e_set_name where product_id = @product_id and panel_name = 
@panel_name and (keys.e_set_name < ' ' or keys.e_set_name is null) 

fetch c_panel into @product_id, @panel_name, @e_set_name 
end 

close c_panel 
deallocate c_panel 



return 
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Procedure Name: doPanelRSets 

declare c_panelr cursor for 

select product_id,panel_name, r_set_name from panels where r_set_name > ' ' 

declare @product Jd decimal(9), @panel_name varchar(250), @r_set_name varchar (50) 
open c_panelr 

fetch cjanelr into @product_id, @panel_name, @r_set_name 
while (@@fetch_status = 0) 



/♦UPDATE panels SET e_set_name - @e_set_name WHERE CURRENT OF c_panel*/ 
update keys set r_set_name=@r_set_name where product_id = @product_id and panel_name = 
@panel_name and (keys.rjerjiame < ' ' or keys.r_set_name is null) 

fetch c_panelr into @product_id, @panel_name, @r_set_name 
end 

close c_panelr 
deallocate c_panelr 



begin 



return 
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Procedure Name: doProdSetup 



/****** Object: Stored Procedure dbo.doProdSetup Script Date: 1/14/99 3:43:07 PM ******/ 

/♦***♦* Object: Stored Procedure dbo.doProdSetup Script Date: 1/12/99 1 1:05:37 PM ******/ 

/****♦♦ Object: Stored Procedure dbo.doProdSetup Script Date: 1 1/28/98 2:3 1 : 13 PM ♦**.***/ 

/♦****♦ Object: Stored Procedure dbo.doProdSetup Script Date: 1 1/17/98 2:43:36 PM ***♦♦*/ 

declare @product_id numeric(8,0), @grp_name varchar(50), @title_name varchar(50), @src_prod_id 

numeric(8,0) 

/**/ 

declare c_corp_info cursor for 

select product_id,grp_name,title_name from corp_info 
declare c_src_category cursor for 

select product_id from src_category where product_id = @product_id 
open c_corp_info 

fetch c_corp_info into @product_id,@grp_name,@title_name 
/♦if (@@fetch_status o 0) 

begin 

end*/ 

while (@@fetch_status = 0) 
begin 

open c_src_category 

fetch c_src_category into @src_prod_id 

If (@@fetch_status o 0) 

begin 

Insert into src_category (product_id,src_cat_name,src_cat_descr,grp_name,title_name) 
values (@product_id,'Agents',' , ,@grp_name,@title_name) 

Insert into src_category (produc^idjSrc^a^name^rc^ca^descrjgrp^amejtitle^ame) 
values (@product_id/RenewaIsVR thmgs\@grpjiame,@title_name) 

Insert into src_category (producMd^rc^a^name^rc^a^desc^grp^ame^itle^name) 
va lues (@product_id/ B i 1 1 ing\^@grp jiame,@title_name) 

Insert into src_category (produc^id^rc^cat^name^rc^at^desc^grp^name^itle^ame) 
values (@product_id;DTP , , H ,@grp_name,@title_name) 

Insert into src_category (producMdjSrc^cat^namejSrc^a^descrjgrp^name^itle^ame) 
values ((gproductjd/Gifts'^^grp^ame^title^name) 

Insert into src_category (product^id^rc^a^name^rc^ca^descrjgrp^ame.title^name) 
values (©produc^id/Renewals'^^grp^ame^title^ame) 

Insert into src_category (produ^id^rc^cat^name.src^at^descrjgrp^name^itle^ame) 
values (©produc^id/UNNASSIGNED'/^grp^ame^title^name) 

Insert into source 

(product_id,src_cat_name,source_name,src_indicator ) grp_name,title__name) values 
(©produc^id/Renewals'/RenewalsSRC'/R'^grp^ame^itle^ame) 

close c_src_category 

end 

else 

begin 

close c_src_category 
end 

fetch c_corp_info into @productjd,@grp_name,@titIejiame 
end 

close c_corp_info 
deallocate c_corp_info 
deallocate c_srccategory 
return 
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Procedure Name: doR101_summary 



begin 

truncate table rlOl 

-update rl01_flow set select_date = getDateO where select date < '1901-01-01' 
/* 

update rl0l_flow set select_date = getDateO where not exists 
(select * from rl01_flow r 

where r.rl01_key = rl01_flow.rl01_key and r.product_id = rl01_flow.product id and select_date 
>'1990-01-01') 
*/ 

Insert into r 101 

(rl01_reorg_date, 

product_id, 

rlOlJcey, 

source_identifier, 

issue_identifier, 

prior_source_identifier, 

effort_identifier, 

mail_qty, 

select_date, 

key_descr, 

subs_this_week, 

subs_to_date, 

gross_subs, 

gross_subs_pct, 

net_subs, 

net_subs_pct, 

tot_net_subs, 

tot_net_subs_pct, 

pct_credit, 

pct_cred_renew, 

cred_pay_amt, 

cred_pay_pct, 

avg_net_trm, 

avg_net_trm_value, 

avg_tot_net_trm, 

avg_tot_net_trm_value, 

subs_phone, 

subs_c_card, 

instalMst, 

insta!l_lst_total, 

subs_jift, 

subs j> ift_pct_ 1 st_trm, 

sub_yearsjgross, 

sub_yearsj£ross_tot_net, 

gross_sub_revenue, 

net_sub_revenue, 

gross_sub_copies, 

net_sub_copies, 

cash_subs, 
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est_max_eff_mail_qty, 

grosscred^subs, 

net_cred_subs, 

fulfillment_title_name, 

gross_list_rental_qty, 

netjist_rental_qty, 

package_identifier, 

key_descr2, 

donees_todate, 

totalorders, 

tot_order_pct_rspnce, 

renew_subs_pct 

, fiilfillment_house) 



EXECUTE("select rlOl jwgjiate, 
product_id, 
rlOlJcey, 
source_identifier, 
issue_identifier, 
prior_source_identifier, 
eflortjdentifier, 
mail_qty, 
select_date, 
key_descr, 
subs_this_week, 
subs_to_date, 
gross_subs, 
gross_subs_pct, 
net_subs, 
net_subs_pct, 
tot_net_subs, 
tot_net_subs_pct, 
pct_credit, 
pct_cred_renew, 
cred_pay_amt, 
cred_pay_pct, 
avg_net_trm, 
avg_net_trm_value, 
avg_tot_net_trm, 
avg_tot_net_trm_vaIue, 
subs_phone, 
subs_c_card, 
instalMst, 
install_lst_total, 
subs^gift, 

subs_gift_pct_ 1 st_trm, 

sub_years_gross, 

sub_years_gross_tot_net, 

gross_sub_revenue, 

net_sub_revenue, 

gross_sub_copies, 

net_sub_copies, 

cash_subs, 

est_max_eff_mail_qty, 
gross_cred_subs, 
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net_cred_subs, 
rulfillment_title_name, 
gross_list_rentai_qty, 
net_list_rental_qty, 
packagejdentifier, 
key_descr2, 
doneesjodate, 
totaI_orders, 
tot_order_pct_rspnce, 
renew_subs_pct 
, isnull(case import_file_type 

when 'A' then 'CENTROBE' 
when 'B' then 'CENTROBE' 
when 'C then 'CENTROBE' 
when 'E' then 'CENTROBE' 
when 'F then 'CDS' 
when 'G' then 'CDS' 
when 'H' then 'CDS' 
when *V then TALM COAST 
when f r then 'PALM COAST 
when 'ft* then TALM COAST 
else null 

end 

,fulfillment_house) 
from vrl01_flow_max_dates, rl01_flow 
where mproduct_id = product_id and 
mr 1 0 1 _key=r 1 0 1 Jcey and mdate=r 1 0 1 _reorg_date 
order by mproduct_id, mr 1 0 1 _key , r 1 0 1 j-eorg_date") 
end 



Integrated Marketing Technology 



9/27/00 3:38 PM 



Page 4 1 of 142 



IMT Subscription Marketing Reporting System 



Procedure Name: doR401_summary 



truncate table r40I_summary 



update r401_flow set select_date = getDateO where not exists 
(select * from r40 l_flow r 

where r.r401_key = r401_flow.r40l_key and r.productjd = r401_flow.product_id and select_date 
> , 1990-01-0I') 

Insert into r40 l_summary 
(r401_reorg_date, 
product_id, 
r401_key, 
source_identifier, 
credit_period_identifier, 
current_source_identifier, 
efFort_identifier, 
select_date, 
bills_mailed, 
bills_mailed_amt, 
this_week_pmt, 
totaljmt, 
pmt_pct, 
step_up, 
step_up_pct, 
pmt_p lus_step_up_re v, 
avg_rev_per_pmt, 
avg_term_per_pmt, 
request_cancel, 
request_cancel_pct, 
per_cancel, 
per_cancel_pct, 
pmt_on_pmt, 
pmt_after_cancel, 
total_copies, 
fu!fillment_title_name, 
est_max_eff_mailjqty 
, import_file_type) 
EXECUTEC 

SELECT distinct r401_reorg_date, 

product_id, 

r401Jcey, 

source_identifier, 

credit_period_identifier, 

cun*ent_sourcejdentifIer, 

effort_identifier, 

select_date, 

bills_mailed, 

bills_mailed_amt T 

this_week_pmt, 

total_pmt, 

pmt_pct, 

stepjip, 
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step_up_pct, 

pmt_plus_stepup_rev, 

avg_rev_per_pmt, 

avg_term_per_pmt, 

request_cancel, 

request_cancel_pct, 

permeance I, 

per_cancel_pct, 

pmt_on_pmt, 

pmt_after_cancel, 

total_copies, 

fulfillment_title_name, 

est_max_eff_mail_qty 

, import_file_type 

from vr401_flow_max_dat.es, r401_flow where mproductjd = product_id and 



mr401_key=r401_key and mdate=r401_reorg_date order by product Jd, r401_key, r401_reorg_date 
') 
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Procedure Name: doRecycleKey 



@product_id__r numeric(8,2), 
@promo_key_r varchar (25) 
AS 

declare @r!0 lkey varchar(25), 

@select_date smalldatetime, 
@mail_qty numeric(12,2), 
@product_id numeric(8,0), 
@full_promo_key varchar(25), 
@dt_valid_to smalldatetime, 
@source ^identifier char( 1 ), 
@keyCount numeric(8,0), 
@src_cat_name VARCHAR(50), 
@r401_key varchar(25), 
@bills_mailed numeric(9), 
@fuIfillment_house varchar(50), 
@import_fiIe_type varchar(50) 

select @src_cat_name = src_cat_name 

from keys where full_promoJcey = @promo_key_r 

and product jd = @product_id_r 

if @src_cat_name = 'Billing* 
BEGIN 

print @src_cat_name 

declare c_r40 1 cursor for /* r40 1 recordset - the main/reference one */ 
select r401_key ) select_dat^bills_mailed,product_id J source_identifier, import_file_type from 

r401_summary 
where r401_key = @promo_key_r 
and product_id = @product_id_r 

open c_r40 1 

fetch c_r401 into @r401_key,@select_date,@bills_mailed,@product_id,@source jdentifier, 
@import_file_type 

while (@@fetch_status = 0) 
begin 

Insert into availjceys (full_promo_key,dt_validJo,mail_qty,product_id,source_identifier, 
position 1 ,position2,position3,position4,position5,position6, position7, 
position8,position9,position 10, fulfillment Jiouse ) values 
((2^40 l_key,ISNULL(@select_d^^ 

SUBSTRING(@r40 l_key, 1 , 1 ),SUBSTRING(@r40 l_key^, 1 ),SUBSTRTNG(@r40 1 _key,3 , 1 ), 
SUBSTRING(@r40 l_key,4, 1 ),SUBSTRING(@r40 l_key,5, 1 ), 

SUBSTRING(@r40 l_key,6, 1 ),SUBSTRING(@r40 l_key,7, i ),SUBSTRTNG(@r40 1 _key,8, 1 ), 
isnull(SUBSTRING(@r40 l_key,9, 1 ), null), 
ISNULL(SUBSTRING(@r40 l_key, 1 0, 1 ),null) 

, case @import_file_type 

when 'A' then 'CENTROBE' 
when 'B' then 'CENTROBE' 
when 'C then 'CENTROBE' 
when 'E' then 'CENTROBE' 
when 'P then 'CDS* 
when 'G then 'CDS' 
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when 'H' then 'CDS' 

when T then 'PALM COAST 

when 'J' then 'PALM COAST 

when *K' then 'PALM COAST 

end) 

fetch c_r401 into (^401_key,(^elect_date,@bills_mailed,@product_id,^ourcejdentifier t 
@irnport_file_type 
end 

close c_r401 
deallocate c_r401 

-delete from avail_keys where exists 
-(select * from keys k 

-where k.full _promo_key = avail_keys.rull_promoJcey and k.product jd = 
avail_keys.product_id) 
return 
END 

ELSE 

BEGIN 
print' 1 01 stuff 
set nocount on 

/*add for product id smarts */ 

declare c_rl01_r cursor for /* rlOl recordset - the main/reference one */ 

select riOl^key^elec^date^ai^qtyjproductJc^sourcejdentifier, fulfillment_house fromrlOl where 

productjd = @product_id_r and rlOlJeey = @promo_key_r 

openc_rl01_r 

fetch c_rl01_r into @rl'01_key,@select_date,@mail_qty,@product_id,@source_identifier, 
@import_file_type 
while (@@fetch_status = 0) 
begin 

Insert into avail_keys 
(fullj)romojcey,dt_valid_to,mailjqty^ 
position5,position6, position7, fulfillmenthouse) 

values 

(@rl 0 1 _key ,ISNULL(@select_date,getDateO),@mail_qty,@product Jd,@source jdentifier,SUBSTRING 
(<^101Jcey,l,l),SUBSTRmG(^ 

,4, l),SUBSTRING(@r 1 0 l_key,5, 1 ),SUBSTRING(@r 1 0 l_key,6 



, 1 ),SUBSTRING(@r 1 0 l_key,7, 1 ) 
, @import_file_type) 

fetch c_rlOI_r into ^10l_key,@select_date,^ail_qty,@product_id,@source_identifler, 
@import_file_type 
end 

close c_r 101 _r 
deallocate c_rl01_r 
return 
END 
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Procedure Name: doRecyclePanelKey 

@rec_id numeric(8,2) 
AS 

/* get primary key info */ 

declare @camp_name varchar(250), 

@source_name varchar(50), 

@panel_name Varchar(250), 

@src_cat_name Varchar(30), 

@product_id numeric(5), 

@keys_product_id numeric(5), 

@full_promo_key numeric(5) 

SELECT @camp_name = camp_name, 

@source_name = source_name, 

@panel_name = panel_name, 

@src_cat_name = src_cat_name, 

@product_id = product_id 
FROM panels 
WHERE rec_id - @rec_id 

declare ckeys cursor for 

select full_promo_key, product_id 

from keys 

where product_id = @product_id 
and camp_name = @camp_name 
and source_name = @source_name 
and panel_name = @panel_name 
and src_cat_name = @src_cat_name 

open ckeys 

fetch c_keys into @full_promo_key,@keys_product_id 

while (@@fetch_status = 0) 
begin 

exec doRecycleKey @keys_product_id, @full_promo_key 

fetch c_keys into @full jromo_key,@keys jroduct_id 

end 

close c_keys 
deallocate c_keys 
delete from keys 

where productjd = @product_id 
and camp_name = @camp_name 
and source_name = @source_name 
and panel_name = @panel_name 
and src_cat_name = @src_cat_name 



return 
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Procedure Name: doSourcelnds 



/** creates a src_indicator placeholder from 101 flow ***/ 
declare @var_src_ind char( 1 ), @var_target_ind char( 1 ) 
declare c_rl01_ind cursor for 

select distinct source_identifier from rlOl 
declare c source cursor for 

select srcindicator from source where src_indicator = @var_src_ind 
open c_rl0lind 

fetch c_r 1 0 1 _ind into @ var_src_ind 
if (@@fetch_status o 0) 
begin 

print "No Source Indicators found in r 101" 
close c_rl01_ind 
deallocate c_rl01_ind 
return 
end 

while (@@fetch_status = 0) 
begin 

open c_source 

fetch cjource into @varjarget_ind 
If (@@fetch_status o 0) 
begin 

Insert into source (src j^tjiame,src Jndicator,source_name) values 
( f UNASSIGNED , ,@var_src_ind;MISSING') 
close c_source 
end 
else 
begin 

close c_source 
end 

fetch c_rl01_ind into @var_src_ind 
end 

close c_rl01_ind 
deallocate c_rl01_ind 
return 
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Procedure Name: doSummary 



BEGIN - only for Palm Coast titles at Primedia 

update r401_flow set select_date = r401_reorg_date where select_date = '1900-01-01' 
END 

BEGIN 

PRINT 'Executing dorlO ^summary* 
end 

BEGIN 

execute dorl01_summary; 

PRINT 'Execution of dorl01_summary complete* 

END 

BEGIN 

PRINT 'Executing dor40 l_summary' 
END 

BEGIN 

execute dor401_summary; 

PRINT 'Execution of dor401_summary complete' 

END 



BEGIN 

PRINT 'Executing doavailkeys' 
END 

BEGIN 

execute doavailkeys; 

PRINT 'Execution of doavailkeys complete' 
END 



BEGIN 

PRINT 'Executing doavail401keys* 
END 

_***************** doavaiWOlkeys runs when doavailkeys runs ! 
-BEGIN 

-execute doavail401keys; 

-PRINT 'Execution of doavaiI401keys complete' 

-END 

BEGIN 

execute doEstMaxEfTort ; 

PRINT 'Execution of doavai!401keys complete* 



END 



Begin 

Insert into summary_log values(GetDate(), 'Summary Procedure Run') 
Print 'Updated summary log' 
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Procedure Name: getCorpInfo 



/****** Object: Stored Procedure dbo.getCorpInfo Script Date: 1/14/99 3:43:06 PM ******/ 

/****** Object: Stored Procedure dbo.getCorpInfo Script Date: 1/12/99 1 1:05:37 PM ******/ 
( 

@product_id numeric(8,0) 



AS 



select * from corp_info where product Jd = @product_id 
return 
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Procedure Name: expenses 



/****** Object: Stored Procedure dbo.expenses Script Date: 1/14/99 3:43:07 PM ******/ 

/****** Object: Stored Procedure dbo.expenses Script Date: 1/12/99 11:05:38 PM ******/ 

/*♦♦*** Object: Stored Procedure dbo.expenses Script Date: 1 1/28/98 2:3 1: 13 PM ♦♦****/ 

/****** Object: Stored Procedure dbo.expenses Script Date: 1 1/17/98 2:43:36 PM ******/ 

/****** object: Stored Procedure dbo.expenses Script Date: 10/19/98 6:03:58 PM ♦**♦**/ 

declare @e_set_name varchar (50),@product_id numeric(8,2), 

@print_cost numeric(l 1, 3),@print_cpm_cpu varchar (10), 
@print_basis varchar (20), 

@ltr_cost numeric(l 1, 3),@ltr_cpm_cpu varchar (10), 
@ltr_basis varchar (20), 

@postage_out_cost numeric(l 1, 3),@postage_out_cprn_cpu varchar (10), 
@postage_out_basis varchar (20), 

@postage_in_cost numeric(l 1, 3),@postage_in_cpm_cpu varchar (10), 
@postage_in_basis varchar (20), 

@premium_cost numeric(l 1, 3),@premium_cpm_cpu varchar (10), 
@premium_basis varchar (20), 

@badpay_cost numeric(l 1, 3),@badpay_cpm_cpu varchar (10), 
@badpay_basis varchar (20), 

@billing_cost numeric(l 1, 3),@billing_cpm_cpu varchar (10), 
@billing_basis varchar (20), 

@subs_svc_costs numeric(l 1, 3),@subs_svc_cpm_cpu varchar (10), 
@subs_svc_basis varchar (20), 

@exp_fixed_costs numeric(l 1, 3),@exp_fixed_cprn_cpu varchar (10), 
@exp_fixed_basis varchar (20), 

@exp_other_costs numerical 1, 3),@exp_other_cpm_cpu varchar (10), 
@exp_other_basis varchar (20), 



@ful l_promo_key varchar (10), 
@levell_expense numeric(12,3), 
@level2_expense numeric(12,3), 
@level3_expense numeric(l2,3), 
@r 1 0 1 Jcey varchar( 10), 
@mail_qty numeric(12,2), 
@grosssubs numeric(7,2), 
@net_subs integer, 

@ll_tmp numeric (12,3), 

@U_value numeric (12,3), 

@l2_tmp numeric (12,3), 

@12_value numeric (12,3), 

@13_tmp numeric (12,3), 

@13_value numeric (12,3) 
declare c_exp cursor for 

select expense_sets.e_set_name, expense_sets.product_id, 

print_cost,print_cpm_cpu,print_basis, 

Itrcost, ltr_cpm_cpu, lrr_basis, 

/♦deleted iist_cost,cpm and basis because of redesign-list library activities., moved to key, still 
need to add code for calculating */ 

postage_out_cost,postage_out_cpm_cpu,postage_out_basis, 

postage_in_cost,postage_in_cpm_cpu,postage_in_basis, 

premium_cost,premium_cpm_cpu,premium_basis, 
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badpaycos^badpay^pm^pUjbadpay^asis, 

billing^os^billing^cpmcpu^illing^basis, 

subs_svc_costs,subs_svc_cpm_cpu,subs_svc_basis, 

exp_fixed_costs,exp_fixed_cpm_cpu,exp_fixed_basis, 

exp_other_costs,exp_other_cprn_cpu,exp_other_basis, 

full_promo_key, 

level l_revenue, 

level2_revenue, 

level3_revenue, 

rlOlJcey, 

mail_qty, 

gross_subs, 

net subs 

from expense_sets,keys,rl01 where keys.product_id=expense_sets.product_id and 
keys.product_id=r 1 0 1 .producHd and 

keys.e_set_name = expense_sets.e_set_name and keys.full_promo_key = rlOl.rlOlJcey 

Order by expense_sets.e_set_name 
open c_exp 
fetch c_exp into 

@e_set_name,@productJd, 

@print_cost,@print_cpm_cpu, 

@print_basis, 

@Itr_cost,@ltr_cpm_cpu, 

@Itr_basis, 

@postage_out_cost,@postage_out_cpm_cpu, 
@postage_out_basis, 

@postage_in_cost,@postage_in_cpm_cpu, 
@postage_in_basis, 
@premium_cost,@premium_cpm_cpu, 
@premium_basis, 

@badpay_cost,@badpay_cpm_cpu, 
@badpay_basis, 

@billmg_cost,@billing_cpm_cpu, 
@billing_basis, 

@subs_svc_costs,@subs_svc_cpm_cpu, 
@subs_svc_basis, 

@exp_fixed_costs J @exp_fixed_cpm_cpu, 
@exp_fixed_basis, 

@exp_other_costs,@exp_omer_cpm_cpu, 
@exp_other_basis, 

@fu I l_promo_key , 

@levell_expense, 

@level2_expense, 

@Ievel3_expense, 

@rl01_key, 

@mail_qty, 



@gross_subs, 
@net_subs 
while (@@fetch_status = 0) 
begin 

select @ll_tmp = 0 
select @ll_value = 0 
select @12jmp = 0 
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select @I2_value = 0 
select @13_tmp = 0 
select @13_value = 0 

I* ********* *** * * ************** LEVEL J ***********************************************/ 

If (@print_basis = 'Mail Qty') 
begin 

select @Il_tmp = (@mail_qty * @print_cost) 
end 

else if (@print_basis = 'Gross Subs') 
begin 

select @ll_tmp = (@gross_subs * @print_cost) 
end 

else if (@print_basis = 'Net Subs') 
begin 

select @il_tmp = (@net_subs * @print_cost) 
end 

if (@print_cpm_cpu = 'CPM') 
begin 

select @ll_tmp = @ll_tmp / 1000 
end 

select @ll_value= @1 Rvalue + @ll_tmp 

select @ll_tmp = 0 
If (@ltrjbasis = 'Mail Qty') 
begin 

select @ll_tmp = (@mail_qty * @Itr_cost) 
end 

else if (@ltr_basis = 'Gross Subs') 
begin 

select @ll_tmp = (@gross_subs * @ltr_cost) 
end 

else if (@ltr_basis = TMet Subs') 
begin 

select @1 l_tmp = (@net_subs * @ltr_cost) 
end 

if (@ltrj:pm_cpu = 'CPM') 
begin 

select @ll_tmp = @11 JmpV 1000 
end 

select @I l_value= @1 l_value + @I l_tmp 

select @ll_tmp = 0 
If (@postage_out_basis = 'Mail Qty') 
begin 

select @ll_tmp = (@mail_qty * @postage_out_cost) 
end 

else if (@postage_out_basis = 'Gross Subs') 
begin 

select @ll_tmp = (@gross_subs * @postage_out_cost) 
. end 

else if (@postage_out_basis = Wet Subs 1 ) 
begin 

select @U_tmp = (@net_subs * @postage_out_cost) 
end 

if (@postage_out_cpm_cpu = 'CPM') 
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begin 



select @ll_tmp = @lljmp/ 1000 
end 




If (@postage_in_basis = 'Mail Qty') 
begin 

select @12_tmp = (@mail_qty * @postage_in_cost) 
end 

else if (@postage_in_basis = 'Gross Subs') 
begin 

select @12_tmp = (@gross_subs * @postage_in_cost) 
end 

else if (@postage_in_basis = *Net Subs') 
begin 

select @12_tmp = (@net_subs * @postage_in_cost) 
end 

if (@postage_in_cpm_cpu = 'CPM') 
begin 

select @l2_tmp = @12jmp / 1000 



select @I2_value= @12_value + @12_tmp 

select @12_tmp = 0 

If (@premium_basis = 'Mail Qty') 



begin 




select @l2_tmp = 


(@mail_qty * @premium_cost) 


end 




else if (@premium_basis ~ 


: 'Gross Subs') 


begin 




select @12_tmp = 


(@gross_subs * @premium_cost) 


end 




else if (@premium_basis = 


: 'Net Subs') 


begin 




select @12_tmp = 


(@net subs * @premium_cost) 


end 




if (@premium_cpm_cpu = 


'CPM') 


begin 




select @12_tmp = 


@12jmp/ 1000 



select @12_value= @12_value + @12_tmp 
select @l2jmp = 0 

If (@badpay_basis = 'Gross - Net Subs') 
begin 

select @l2_tmp = ((@gross_subs - @net_subs) * @badpay_cost) 
end 

if (@badpay_cpm_cpu = 'CPM') 
begin 

select @12_tmp = @12_tmp / 1000 
end • 

select @12_value= @12_value + @12_tmp 
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select @12 Jmp = 0 
If (@billing_basis = 'Mail Qty') 
begin 

select @12_tmp = (@mail_qty * @billing_cost) 
end 

else if (@billing_basis = 'Gross Subs') 
begin 

select @12_tmp = (@gross_subs * @billing_cost) 
end 

else if (@billing_basis = 'Net Subs') 
begin 

select @12_tmp = (@net_subs * @billing_cost) 
end 

if (@billing_cpm_cpu = 'CPM') 
begin 

select @12_tmp = @12_tmp / 1000 
end 

select @12_value= @l2_value + @12_tmp 

^*****************************LEVEL 2**********?************************************/ 
^*****************************LEYEL 3***********************************************/ 

If (@subs_svc_basis = 'Mail Qty 1 ) 



begin 




select @13_tmp 


= (@mail_qty * @subs_svc_costs) 


end 




else if (@subs_svc_basis 


= 'Gross Subs 1 ) 


begin 




select @I3_tmp 


= (@gross_subs * @subs_svc_costs) 


end 




else if (@subs_svc_basis 


= 'Net Subs') 


begin 




select @I3_tmp 


= (@net_subs * @subs_svc_costs) 


end 




if (@subs_svc_cpm_cpu 


= 'CPM') 


begin 




select @13_tmp 


= @13jmp/ 1000 


end 





select @13_value= @13_value + @l3_tmp 

select @13__tmp = 0 
If (@exp_fixed_basis = 'Mail Qty') 
begin 

select @13 Jmp = (@mail_qty * @exp_fixed_costs) 
end 

else if (@exp_fixecj_basis = 'Gross Subs') 
begin 

select @13_tmp = (@gross_subs * @exp_fixed_costs) 
end 

else if (@exp_fixed_basis = 'Net Subs') 
begin 

select @l3_tmp = (@net_subs * @exp_fixed_costs) 
end 

if (@exp_fixed_cpm_cpu = 'CPM') 
begin 

select @13_tmp = @13_tmp / 1000 
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end 



select @I3_value= @I3_value + @I3_tmp 
select @13_tmp = 0 
If (@exp_other_basis = 'Mail Qty') 
begin 

select @13_tmp = (@mait_qty * @exp_other_costs) 
end 

else if (@exp_other_basis = 'Gross Subs') 
begin 

select @l3_tmp = (@gross_subs * @exp_other_costs) 
end 

else if (@exp_other_basis = 'Net Subs') 
begin 

select @l3_tmp = (@net_subs * @exp_other_costs) 
end 

if (@exp_other_cpm_cpu = 'CPM') 
begin 

select @13_tmp = @13_tmp / 1000 



UPDATE keys SET level l_expense = @Il_value,level2_expense = @12_value,level3_expense = 
@13_value WHERE CURRENT OF c_exp 
fetch c_exp into 

@e_set_name,@product_id, 
. @print_cost,@print_cpm_cpu, 

@print_basis, 

@ltr_cost,@ltr_cpm_cpu, 

@ltr_basis, 

@postage_out_cost,@postage_out_cpm_cpu, 
@postage_out_basis, 

@postage_in_cost,@postage_in_cpm_cpu, 
@postage_in_basis, 
@premium_cost,@premium_cpm_cpu, 
@premium_basis, 

@badpay_cost,@badpay_cpm_cpu, 
@badpay_basis, 

@billing_cost,@billing_cpm_cpu, 
@billing_basis, 

@subs_svc_costs,@subs_svc_cpm_cpu, 
@subs_svc_basis, 

@exp_fixed_costs,@exp_fixed_cpm - cpu, 
@exp_fixed_basis, 

@exp_other_costs,@exp_other_cpm_cpu, 
@exp_other_basis, 

@full_promo_key, 

@levell_expense, 

@leve!2_expense, 

@level3_expense, 

@rl01Jcey, 

@mail_qty, 

@gross_subs, 

@net_subs 



end 

select @13_value= @13_value + @13_tmp 




end 
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close c_exp 
deallocate c exp 
return 
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Procedure Name: maxBillEffort 



update r40l_flow set est_max_eff_mail_qty = bills_mailed where effortjdentifier = T 
update r401_summary set est_max_eff_mail_qty =bilis_mailed where effortjdentifier = T 
update r401_flow set est_max_eff_mail_qty = 0 where est_max_eff_mail_qty is null 
update r401_summary set est_max_eff_mail_qty = 0 where est_max_eff_mail_qty is null 
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Procedure Name: max Effort 



update rl01_flow set est_max_eff_mail_qty = mail qty where effortjdentifier = 1 
update r 10 1 set est_max_efT_mailjqty = mail qty where effortidentifier = 1 
update rlO Inflow set est_max_efT_mai l_qty - 0 where est_max_eff_mail_qty is null 
update rlOl set estjnax_efTmail_qty = 0 where est_max_efT_mail_qty is null 
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Procedure Name: maxGiftEffort 



update r301_flow set est_max_e ffjrta i I qty = mail_qty where efFort_identifier = T 
update r301_summary set e st_max_e fT_m a i l_q ty = mailqty where effort_identifier = T 
update r301_flow set est_max_eff_mail_qty = 0 where est_max_eff_mail_qty is null 
update r3 01 summary set est_max_eff_mail_qty = 0 where est_max_erT_maiI_qty is null 
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Procedure Name: procedure Rebu ild_Rpt_Ca ts 



begin 



- UPDATES IMAGINE REPORTS 
truncate table imagine. dbo.rpt_cats 
insert into imagine.dbo.rpt_cats 

select src_cat_name, src_sub_cat, location, rpt_name, rpt_description, rpt_filters from 
pmedia.dbo.rpt_cats 



PRINT 'IMAGINE Report Catolog Updated* 
END 

- UPDATES IMT PRESENTATION REPORTS 
truncate table IMTPresentation.dbo.rptcats 
insert into IMTPresentation.dbo.rpt_cats 

select src_cat_name, src_sub_cat, location, rpt_name, rpt_description, rpt_filters from 
pmed ia. dbo . rpt_cats 
BEGrN 

PRINT 'IMT Presentation Report Catolog Updated* 
END 

- UPDATES DWELL REPORTS 
truncate table dwelI.dbo.rpt_cats 
insert into dwell.dbo.rpt_cats 

select src_cat_name, src_sub_cat, location, rpt_name, rpt_description, rpt_filters from 
pmedia.dbo.rpt_cats 
BEGIN 

PRINT 'Dwell Report Catolog Updated' 
END 

- UPDATES DWELL REPORTS 
truncate table demo.dbo.rpt_cats 
insert into demo.dbo.rpt_cats 

select src_cat_name, src_sub_cat, location, rpt_name, rptdescription, rpt_filters from 
pmedia.dbo.rpt_cats 
BEGIN 

PRINT 'Dwell Report Catolog Updated* 
END 



BEGIN 



End 
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Procedure Name: sp_add_autosetup_scheme 

@product_id int 

, @src_cat_name varchar(50) 

, @src_indicator varchar(3) 

, @source_name varchar (250) 

, @vaIid_from datetime 

, @valid_to datetime 

, @setup_mask varchar(50) 

, @e_set_name varchar(50) 

AS 

declare @title varchar(50) 
declare @grp_name varchar(50) 

select @title = title_name 

i @grp_name = grp_name 
from corp_info 

where product_id = @product_id 
-gw added next line 

if @e_set_name is null set @e_set_name = •Undefined* 
insert into autosetup_scheme 

( 

product_id 
, title 

, grpname 
, src_cat_name 
, src__indicator 
, source_name 
, valid_from_date 
, valid_to_date 
, setup_mask 
, e_set_name 

) 

values 

( @product_id 
, @title 
, @grp_name 
i @src_cat_name 
, @src_indicator 
, @source_name 
, @vaiid_from 
, @valid_to 
, @setup_mask 
, @e_set_name 

) 
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Procedure Name: sp_Add_Campaign 



@camp_name varchar(250) ) — 1 
@camp_type varchar(50), - 2 
@camp_status_name varchar(20), - 3 
@camp_date_fr smalldatetime, — 4 
@camp_date_to smalldatetime, - 5 
@agt_code varchar(10), - 6 
@agt_descr varchar^O), - 7 
@e_set_name varchar(50), — 8 
@r_set_name varchai^SO), — 9 
@newstand_sale numeric(18), —10 
@budgeted_gross_pct numeric(9), - 1 1 
@budgeted_vol numeric(9), -12 



@source_name varchar (250), - 13 
@src_indicator char (3), — 14 
@product_id numeric(8,0), — 15 
@src_cat_name varchar(30), ~ 16 
@grp_name varchar(50), — 17 
@title_name varchar (250) — 18 

AS 

insert into campaigns 
( 

camp_name, 

camp_type, 

camp_status_name, 

camp_date_fr, 

camp_date_to, 

agt_code, 

agt_descr, 

esetname, 

r_set_name, 

newstand_sale, 

budgeted_vol, 

budgetedjgross_pct, 



product_id, 

src_cat_name, 

source_name, 

src_indicator, 

grp_name, 

title_name 

) 

values 
( 

@camp_name, 

isNull( @camp_type/Undef^ned , ), 
isNull( @camp_status_name/Undefined'), 
@camp_date_fr, 
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@camp_date_to, 

@agt_code, 

@agt_descr, 

isnull(@e_set_narne, , Undefined'), 

isnull((§^_setjiame/Undefined'), 

@newstand_sale, 

@budgeted_vol, 

@budgeted _gross_pct, 

@product_id, 

@src_cat_name, 

@source_name, 

@src_indicator, 

@grp_name, 

@title_name 
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Procedure Name: sp_add_campaign_def 



@product_id int 

, @campaign_code varchar(50) 

, @campaign_description varchar(50) 

, @src_cat_name varchar(50) 

, @campaign_date datetime 

, @panel_scheme varchar(50) 

AS 

insert into autosetup_campaign_def 
( product_id 

, campaign_code 

, campaign_description 

, src_cat_name 

, campaign_date 

, panel_scheme 

) 

values 

( @product_id 

, @campaign_code 
, @campaign_description 
, @src_cat_name 
, @campaign_date 
, @panel_scheme 

) 
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Procedure Name: sp_Add_Corp_Panel_Sub_Type 



@panel_sub_type_name varchar(50), 
@panel_sub_type_descr varchar(250) 

AS 

insert into Corp_Panel_SubJType 
( 

pane I_sub_type_name, 
pane l_sub_type_descr 

) 

values 

( 

@panel_sub_type_name, 
@panel_sub_type_descr 

) 
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Procedure Name: sp_Add_Corp_Panel_Test_Type 



@pane l_test_type_name varchar(50), 
@panel_test_type_descr varchar(250) 

AS 

insert into Corp_PaneI_Test_Type 
( 

panel_test_type_name, 
panel_test_type_descr 

) 

values 

( 

@panel_test_type_name, 
@panel_test_type_descr 
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Procedure Name: sp_Add_Corp_Panel_Type 



@panei_type_name varchar(50), 
@panel_type_descr varchar(250) 

AS 

insert into Corp_Panel_Type 

( 

pane l_type_name, 
panel_type_descr 

) 

values 

( 

@panel_type_name, 
@panel_type_descr 

) 
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Procedure Name: sp_Add_Keys 



@rec_id numeric(9,0), 
@src_cat_name varchar(50), 
@source_name varchar(250), 
@src_indicator char (3), 
@camp_name varchar (250), 
@panel_name varchar (250) 



@full_promo_key varchar (25), 
@dt_valid_from smalldatetime, 
@dt_valid_to smalldatetime, 
@key_mail_qty numeric(8,0), 
@list_cost_basis varchar(25), 
@list_cat_name varchar(250), 
@list_name varchar(250), 
@list_segment_name varchar(250), 



@PANEL_TYPE varchar(50), 
@PANEL_SUBTYPE varchar(50), 
@TEST_TYPE varchar(50), 
@PANEL_OFFER varchar(50), 
@PANEL_OFFER_PRICE money, 
@PANEL_PKG varchar(50), 
@PANEL_PREMIUM varchar(50), 
@PANEL_DATE_START smalldatetime, 
@PANEL_DATE_END smalldatetime, 
@GRP_NAME varchar(50), 
@TITLE_NAME varchar(50), 
@CAMP_TYPE varchar(50), 
@CAMP_STATUS_NAME varchar(50), 
@AGT_CODE varchar(50), 
@AGT_DESCR varchar(50), 
@CAMP_DATE_FR smalldatetime, 
@CAMP_DATE_TO smalldatetime, 
@E_SET_NAME varchar(50), 
@R_SETNAME varchar(50), 
@newstand_sale_marker varchar(50), 
@newstand_sale NUMERJC(18) 

select @full_promo_key = full_promo_key, 

@dt_validJo = dt_valid_to, 

@product_id = product_id, 

@key_mail_qty = maii_qty 
from avail_keys 
where rec_id=@rec_id 

-get panel and other info for key table 
declare c_panel_info cursor for 
select PANEL_TYPE , 



AS 



declare @product_id numeric(8,0), 



—for keys table 



- for info from panels table 
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PANEL_SUBTYPE , 
TEST_TYPE , 
PANEL_OFFER, 
PANEL_OFFER_PRICE , 
PANEL_PKG , 
PANEL_PREMIUM , 
PANEL_DATE_START ) 
PANEL_DATE_END , 
GRP_NAME , 
TITLE_NAME , 
CAMP_TYPE , 
CAMP_STATUS_NAME , 
AGTJZODE , 
AGT_DESCR , 
CAMP_DATE_FR , 

CAMP_DATE_TO, E_SET_NAME, R_SET_NAME 

from panels where product_id = @product_id and src_cat_name = @src_cat_name and 
source_name = @source_name 

and camp_name - @camp_name and panel_name = @panel_name 
select @PANELJITPE = PANEL JTYPE , 

@PANEL_SUBTYPE = PANEL_SUBTYPE , 

@TEST_TYPE = TEST_TYPE , 

@PANELOFFER = PANELJ3FFER, 

@PANEL_OFFER_PRICE = PANEL_OFFER_PRICE , 

@PANEL_PKG = PANEL_PKG , 

@PANEL_PREMIUM = PANEL_PREMIUM , 

@PANEL_DATE_START = PANEL_DATE_START, 

@PANEL_DATE_END = PANEL_DATE_END, 

@GRP_NAME = GRP_NAME, 

@TITLE_NAME = TITLE_NAME , 

@CAMP_TYPE = CAMPJTYPE , 

@CAMP_STATUS_NAME = CAMP_STATUS_NAME , 

@AGT_CODE = AGT_CODE , 

@AGT_DESCR = AGTDESCR , 

@CAMP_DATE_FR = CAMP_DATE_FR , 

@CAMP_DATE_TO = CAMP_DATE_TO, 

@E_SET_NAME = E_SET_NAME, ' 
@R_SET_NAME = R_SET_NAME , 

@newstand_sale_marker = newstand_sale_marker, 

@newstand_sale = Newstand_sale 
from panels 

where product_id = @product_id 
and src_cat_name = @src_cat_name 
and sourcejiame = @source_name 
and camp_name = @camp_name 
and panel_name = @panel_name 



insert into keys 

( 

full_promo_key, 



dt_valid_from, 
dt_valid_to, 
src_cat_name, 
src_indicator, 
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panelname, 

campname, 

product_id, 

sourcename, 

keymailqty, 

PANEL_TYPE, 

PANEL_SUBTYPE, 

TEST_TYPE, 

PANEL_OFFER, 

PANEL_0FFER_PR1CE, 

PANEL_PKG, 

PANEL_PREMIUM, 

PANEL_DATE_START, 

PANEL_DATE_END, 

GRPNAME, 

TITLE_NAME, 

CAMPTYPE, 

CAMP_STATUS_NAME, 

AGT_CODE, 

AGT_DESCR, 

CAMP_DATE_FR, 

CAMP_DATE_TO, 

E_SET_NAME, 

R_SET_NAME, 

newstand_sale_marker, 

newstandsale, 

list_cost_basis, 

listcatname, 

listname, 

list_segment_name 

) 

values 

( @fuIl_promo_key, 

dateadd(month,-20,@dt_valid_to), 

@dt_valid_to, 

@src_cat_name, 

@src_indicator, 

@panel_name, 

@camp_name, 

@product_id, 

@source_name, 

@key_mail_qty, 

@PANEL_TYPE, 
@PANEL_SUBTYPE, 
@TEST_TYPE, 
@PANEL_OFFER, 
@PANEL_OFFER_PRICE, 
isNuli(@PANEL_PKG l , Undefined') t 
@PANEL_PREMIUM, 
@PANEL_DATE_START, 
@PANEL_DATE_END, 
@GRP_NAME, 
@TITLE_NAME, 
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@CAMP_TYPE, 
@CAMP_STATUS_NAME, 



@AGT_CODE, 

@AGT_DESCR, 

@CAMP_DATE_FR, 

@CAMP_DATE_TO, 

'Undefined', 

Undefined', 

isNuIl(@newstand_sale_marker, r N'), 

@newstand_sale, 

'Mail QTY\ 

'Undefined*, 

'Undefined', 

Undefined* 



if(@@error = 0) 
begin 

Delete from avail_keys where rec_id = @rec_id 
end 

close c janel_info 
deallocate c_panel_info 
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Procedure Name: sp_Add_Keys2 



@rec_id numeric(9,0), 
@src_cat_name varchar(30), 
@source_name varchar(250), 
@src_indicator char (3), 
@camp_name varchar (250), 
@panel_name varchar (250) 

AS 

declare @product_id numeric(8,0), -for keys table 

@full_promo_key varchar (25), 
@dt_valid_from smalldatetime, 
@dt_valid_to smalldatetime, 
@key_mail_qty numeric(8,0), 

— for info from panels table 

@PANEL_TYPE varchar(50) l 
@PANEL_SUBTYPE varchar(50), 
@TEST_TYPE varchar(50), 
@PANEL_OFFER varchar(50), 
@PANEL_OFFERJPRICE money, 
@PANEL_PKG varchar(50), 
@PANEL_PREMIUM varchar(50), 
@PANEL_DATE_START smalldatetime, 
@PANEL_DATE_END smalldatetime, 
@GRP_NAME varchar(50), 
@TITLE_NAME varchar(50), 
@CAMP_TYPE varchar(50), 
@CAMP_STATUS_NAME varchar(50), 
@AGT_CODE varchar^O), 
@AGT_DESCR varchar(50), 
@CAMP_DATE_FR smalldatetime, 
@CAMP_DATE_TO smalldatetime 



declare c_avail_key cursor for 

select fuli_promo_key, dt_valid_to, product_id,mail_qty from availjceys where rec_id=@rec_id 

open c_avail_key 

fetch c_avail_key into @fuIl_promoJcey, @dt_va!id_to, @product_ia\ @key_mail_qty 



-get panel and other info for key table 
declare c_panel_info cursor for 
select PANEL_TYPE , 
PANEL_SUBTYPE , 
TESTTYPE , 
PANEL_OFFER, 
PANEL_OFFER_PRICE , 
PANEL_PKG , 
PANEL_PREMIUM , 
PANEL_DATE_START, 



Integrated Marketing Technology 



9/27/00 3:38 PM 



Page 73 of 142 



IMT Subscription Marketing Reporting System 



PANEL_DATE_END , 
GRP_NAME , 
TITLE_NAME , 
CAMP_TYPE , 
CAMP_STATUS_NAME , 
AGT_CODE , 
AGT DESCR , 
CAMP DATE FR , 

CAMP_DATE_TO from panels where product_id = @product_id and src_cat_name = 
@src_cat_name and source name = @source_name 

and campname = @camp_name and panel_name = @panel_name 

open c_panel_info 
fetch c_panel_info into 

@PANEL_TYPE, 

@PANEL_SUBTYPE, 

@TEST_TYPE, 

@PANEL_OFFER, 

@PANEL_OFFER_PRICE, 

@PANEL_PKG, 

@PANEL_PREMIUM, 

@PANEL_DATE_START, 

@PANEL_DATE_END, 

@GRP_NAME, 

@TITLE_NAME, 

@CAMP_TYPE, 

@CAMP_STATUS_NAME, 

@AGT_CODE, 

@AGT_DESCR, 

@CAMP_DATE_FR, 

@CAMP_DATE_TO 



print dateadd(month,-20,@dt_val id_to) 

insert into keys 

( 

full_promo_key, 

dt_valid_from, 

dt_valid_to, 

src_cat_name, 

src_indicator, 

panel_name, 

campjiame, 

product_id, 

sourcejiame, 

key_mail_qty, 

PANEL_TYPE, 

PANEL_SUBTYPE, 

TEST_TYPE, 

PANEL_OFFER, 

PANEL_OFFER_PRJCE, 

PANEL_PKG, 

PANEL_PREMIUM, 

PANEL_DATE_START, 
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PANEL_DATE_END, 

GRP_NAME, 

TITLE_NAME, 

CAMPJTYPE, 

CAMP__STATUS_NAME, 

AGT_CODE, 

AGT_DESCR, 

CAMP_DATE_FR, 

CAMP_DATE_TO 



dateadd(monw,-20,@dt_valid_to), 
@dt_valid_to, 
@src_cat_name, 
@src_indicator, 
@panel_name, 
@camp_name, 
@product_id, 
@source_name, 
@key_mail_qty, 



@PANELTYPE, 
@PANEL_SUBTYPE, 
©TEST-TYPE, 
@PANEL_OFFER, 
@PANEL_OFFER_PRICE, 
@PANEL_PKG, 
@PANEL_PREMIUM, 
isNull( @PANEL_DATE_START,null) , 
isNull(@PANEL_DATE_END,null) , 
@GRP_NAME, 
@TITLE_NAME, 
@CAMPJTYPE, 
@CAMP_STATUS_NAME, 
@AGT_CODE, 
@AGT_DESCR, 

isNull(@CAMP_DATE_FR,null) , 
isNull( @CAMP_DATE_TO,null) 



close c_avail_key 
deallocate c_avail_key 

Delete from avail_keys where rec_id = @rec_id 

close c__panel_info 
deallocate c_panel_info 



values 



@full_prorno_key, 
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Procedure Name: sp_Add_PaneI 



@panel_name varchar(250), -1 
@panel_type varchar(50), -2 
@pane!_subtype varchar(50), -3 
@test_type varchar(50), -4 
@panel_pkg varchar(50), -5 
@panel_date_start datetime, . -6 
@panel_date_end datetime, -7 
@e_set_name varchar(50), -8 
@r_set_name varchar(50), —9 
@newstand_sale_marker char( 1 ), — 1 0 



@product_id numeric(8,0), - 1 1 
@grp_name varchar(50), -12 
@title_name varchar (250), - 1 3 
@src_cat_name varchar(3 0), — 1 4 
@source_name varchar (250), — 1 5 
@src_indicator char (3), — 1 6 
@camp_name varchar(250), - 1 7 
@camp_type varchar^O), - 1 8 
@camp_status_name varchar(20), -19 
@agt_code varchar( 1 0), -20 
@agt_descr varchar(50), -2 1 
@camp_date_fr datetime, —22 
@camp_date_to datetime —23 

AS 

declare 

@IE_SET_NAME varchar(50), 
@1R_SET_NAME varchar(50), 
@INewStand_saIe NUMER1C(18) 
—get expense and revenue set names for pass down if blank 

select @1E_SET_NAME = E_SET_NAME, 
@IR_SET_NAME = R_SET_NAME, 
@!NewStand_saIe = Newstand_sale 
from campaigns where product_id = @PRODUCT_ID 

and SRC_CAT_NAME = @SRC_CAT_NAME and SOURCE_NAME = @SOURCE_NAME 
and CAMP_NAME = @CAMP_NAME 



insert into panels 
( 

panel_name, 

paneMype, 

panel_subtype, 

test_type, 

panel_pkg, 

panel_date_start, 

panel_date_end, 

e_set_name, 
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r_set_name, 
newstand_sale_marker, 

productid, 
grp_name, 
title_name, 
src_cat_name, 
source_name, 
src_indicator, 
camp_jiame, 
camp_type, 
camp_status_name, 
agt_code, 
agt_descr, 
camp_date_fr, 
camp_date_to, 
Newstand sale 



@panel_name, 

isnull(@panel_type, , Undefined , ) ) 

isnull^pane^subtype/Undefined'), 

isnull(@test_type,XJndefined'), 

isnuIl(@panel_pkg, f Undefmed'), 

@panel_date_start, 

@panel_date_end, 

isnull(@e_set - name,@lE_SET_NAME), 
isnuIK^se^name^IR^SE^NAME), 
@newstand_sale_marker, 



@product_id, 

@grp_name, 

@title_name, 

@src_cat_name, 

@source_name, 

@src_indicator, 

@camp_name, 

@camp_type, 

@camp_status_name, 

@agt_code, 

@agt_descr, 

@camp_date_fr, 

@camp_date_to, 

@INewStand_sale 



) 

values 



( 



) 
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Procedure Name: sp_add_ panel_def 



@product_id int 
, @panel_scheme varchar(50) 
, @panel_codes varchar(250) 
, @panel_name varchar(50) 



AS 



insert into autosetup_panel_def 
( product_id 

, panel_scheme 

, panelcodes 

, panel_name 

) 

values 

( @product_id 

, @panel_scheme 
, @panel_codes 
, @panel_name 
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Procedure Name: sp_Add_prior_Source_desc 



@prior_source_identifier char (2) 
, @prior_source_desc varchar (20) 
, @billing_cur_src_desc varchar (255) 
, @model_source_cat varchar(50) 
, @model_source varchar(50) 
, @agent_src_desc varchar(50) 
, @valid_frorn_date datetime 
, @valid_to_date datetime 
, @product_id numeric( 18,0) 



insert into Prior_source_desc 



product_id 

, prior_source_identifier 
, prior_source_desc 
, billin^_cur_src_desc 
, model_source_cat 
, model_source 
, agent_src_desc 
, vaIid_from_date 
, valid_to_date 



@product_id 

, @prior_source_identifier 
, @prior_source_desc 
, @billing cur_src_desc 
, @model_source_cat 
, @model_source 
, @agent_src_desc 
, @valid_from_date 
, @valid_to_date 



as 



( 



) 

values ( 



) 
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Procedure Name: sp_Add_Prod_Camp_Status 



@camp_status__name varchar(20), 
@camp_status_descr varchar(250), 

@product_id numeric(8,0) 

AS 

insert into Prod_Camp_Status 
( 

camp_status_name, 
camp_status_descr, 
product_id 

values 

( 

@camp_status_name, 
@camp_status_descr, 
@productJd 
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Procedure Name: sp_Add_Prod_Camp_Type 

@camp_type_name varchar(250), 
@camp_type_descr varchar(250), 

@product_id numeric(8,0) 

AS 

insert into Prod_Camp_Type 
( 

camp_type_name, 
camp_type_descr, 
product_id 

values 

( 

@camp_type_name, 
@camp_type_descr, 
@product_jd 
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Procedure Name: sp_Add_Prod_E_Set 



@product_id numeric(8, 0) , 
@e_set_name varchar (50) , 
@print_cost numeric(l 1, 3) , 
@print_cpm_cpu varchar (10) , 
@print_basis varchar (20) , 
@merge_purge numerical, 3) , 
@merge_cpm_cpu varchar (10) , 
@merge_basis varchar (20) , 
@Itr_cost numerical 1,3), 
@ltr^cpm_cpu varchar (10) , 
@ltr_basis varchar (20) , 
@postage_out_cost numeric(l 1, 3) , 
@postage_out_cpm_cpu varchar (10) , 
@postage_out_basis varchar (20) , 
@postage_in_cost numeric(l 1,3), 
@postage_in_cpm_cpu varchar (10) , 
@postage_in_basis varchar (20) , 
@premium_cost numeric(l 1, 3) , 
@premium_cpm_cpu varchar (10) , 
@premium_basis varchar (20) , 
@badpay_cost numerical 1, 3) , 
@badpay_cpm_cpu varchar (10) , 
@badpay_basis varchar (20) , 
@billing_cost numerical 1,3) , 
@billing_cpm_cpu varchar (10) , 
@billing_basis varchar (20) , 
@subs_svc_costs numeric(l 1, 3) , 
@subs_svc_cpm_cpu varchar (10) , 
@subs_svc_basis varchar (20) , 
@exp_other_costs numeric(l 1, 3) , 
@exp_other_cpm_cpu varchar (10) , 
@exp_other_basis varchar (20) 

AS 

insert into expense_sets 
( 

product_id , 
e_set_name , 
print_cost , 
print_cpm_cpu , 
print_basis, 
merge __purge, 
merge_cpm_cpu, 
merge_basis, 
ltr_cost , 
ltr_cpm_cpu , 
ltr_basis , 
postage_out_cost , 
postage_out_cpm_cpu , 
postage_out_basis , 
postage_in_cost , 
postage_in_cpm_cpu , 
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postage_in_basis , 
premium_cost, 
premium_cpm_cpu, 
premium_basis , 
badpay_cost , 
badpay_cpm_cpu , 
badpay_basis , 
billing_cost , 
billing_cpm_cpu , 
billing_basis , 
subs_svc_costs , 
subs_svc_cpm_cpu , 
subs_svc_basis , 
exp_other_costs , 
exp_other_cpm_cpu , 
exp_other_basis 



@product_id , 
@e_set_name , 
@print_cost , 
@print_cpm_cpu , 
@print_basis, 
©merge _purge, 
@merge_cpm_cpu, 
@merge_basis, 
@ltr_cost , 
@ltr_cpm_cpu , 
@ltr_basis , 
@postage_out_cost , 
@postage_out_cpm_cpu , 
@postage_out_basis , 
@postage_in_cost , 
@postage_in_cpm_cpu , 
@postage_in_basis , 
@premium_cost, 
@premium_cpm_cpu, 
@premium_basis , 
@badpay_cost , 
@badpay_cpm_cpu , 
@badpay_basis , 
@billing_cost , 
@billing_cpm_cpu , 
@billing_basis , 
@subs_svc_costs , 
@subs_svc_cpm_cpu , 
@subs_svc_basis , 
@exp_other_costs , 
@exp_other_cprn_cpu , 
@exp_other_basis 



) 



values 



( 
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Procedure Name: sp_Add_Prod_List_cat 

-added on 01/05/2000 

@name varchar(250), 
@descr varchar^SO), 
@product_id numeric(8,0) 

insert into List_cats 



( 



list_cat_name, 
list_cat_descr, 
product_id 



values 



@name, 
@descr, 
@product_id 
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Procedure Name: sp_Add_Prod_List_Name 



-added on 01/05/2000 

@name varchar(250), 
@descr varchar(250), 
@product_id numeric(8,0) 

AS 

insert into List jiames 



list_name, 

list_name_description, 
product_id 



) 



values 



( 



@name, 
@descr, 
@product_id 
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Procedure Name: sp_Add_Prod_List_Segment 



-added on 01/05/2000 

@name varchar(250), 
@descr varchar(250), 
@product_id numeric(8,0) 



AS 



insert into List_Segments 
( 



list_segment_name t 

list_segment_description, 

product_id 



) 

values 

( 



@name, 
@descr, 
@product_id 
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Procedure Name: sp_Add_Prod_Panel_Package 



@package_name varchar(50), 
@package_description varchar(250), 
@Productjd numeric(9) 

AS 

insert into Prod_panel_Package 
( product_id, 

package_name, 

package_description 

) 

values 

( @product_id, 

@package_name, 
@package_description 

) 
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Procedure Name: sp_Add_Prod_R_Set 

@product_id numeric(8, 0), 
@r_set_name varchar (50) , 
@subs_revenue numeric(l 1, 3) , 
@subs_cpm_cpu varchar (10) , 
@ad_re venue numeric(l 1,3), 
@ad_cpm_cpu varchar (10), 
@listrentai_revenue numeric(l 1, 3) , 
@listrental_cpm_cpu varchar (10), 
@other_revenue numeric(l 1, 3), 
@other_cpm_cpu varchar (10) 

AS 

insert into revenue_sets 
( product_id , 

r_set_name , 

subs_revenue , 

subs_cpm_cpu , 

ad_revenue, 

ad_cpm_cpu , 

listrental_revenue, 

listrental_cpm_cpu , 

otherjevenue, 

other_cpm_cpu ) 

values 

( @product_id , 

@r_set_name , 
@subs_revenue , 
@subs_cpm_cpu , 
@ad_revenue, 
@ad_cpm_cpu , 
@listrental_re venue, 
@listrental_cpm_cpu , 
@other_revenue, 
@other_cpm_cpu ) 
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Procedure Name: sp_add_renewal_psdef 



@product_id int 

, @src_cat_name varchar(50) 

, @src_indicator varchar(50) 

, @prior_src_indicator varchar(250) 

, @source_name varchar (250) 

, @valid_from datetime 

, @valid_to datetime 

AS 

declare @title varchar(50) 
declare @grp_name varchar(50) 

select @title = title_name 
from corp_info 

where product_id = @product_id 
insert into autosetup_renewal _psdef 

( 

product_id 
, title 

, src_cat_name 

, source_indicator 

, prior_source_indicator 

, source_name 

, valid_from_date 

, valid_to_date 

) 

values 

( @product_id 
, @title 

i @src_cat_name 
, @src_indicator 
, @prior_src_indicator 
, @source_name 
, @valid_from 
, @vaiid_to 

) 
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Procedure Name: sp_Add_Source 



@source_name varchar (250), 
@src_indicator char (3), 

@product_id numeric(8,0), 
@src_cat_name varchar(30), 
@grp_name varchar(50), 
@tit!e_name varchar (250) 

AS 

insert into source 

( 

product_id, 

src_cat_name, 

source_name, 

src_indicator, 

grp_name, 

title_name 



) 



values 



( 



@product_id, 



@src_cat_name, 
@source_name, 
@src_indicator, 
@grp_name, 



@title_name 
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Procedure Name: sp_Add_Source_description 



@u_source_name varchar(250), 
@u_source_description varchar(250) 

AS 

insert into Source_descriptions 



( 



u_source_name, 
u_source_description 



) 



values 



( 



@u_source_name, 
@u_source_description 



) 
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Procedure Name: sp_cascade_product_id 



INSERT INTO list_cats 
SELECT productjd, 'Undefined*," 
FROM corp_info 
WHERE product_id not in ( 

select productjd 

FROM Iist_cats 

WHERE list_cat_name = 'Undefined' ) 



INSERT INTO list_names 
SELECT productjd, 'Undefined'," 
FROM corp Jnfo 
WHERE productjd not in ( 

select product_id 

FROM listjiames 

WHERE Iist_name = 'Undefined* ) 

INSERT INTO Iist_segments 
SELECT productjd, 'Undefined'," 
FROM corp Jnfo 
WHERE product_id not in ( 

select product_id 

FROM list_segments 

WHERE Iist_segment_name = 'Undefined' ) 

INSERT INTO expense_sets 
SELECT product jd, 'Undefined', 

null, null, null, null, 

null, null, null, null, 

null, null, null, null, 

null, null, null, null, 

null, null, null, null, 

null, null, null, null, 

null, null, null, null, 

null, null, null, null, 

null 

FROM corp Jnfo 
WHERE productjd not in ( 

select productjd 

FROM expense_sets 

WHERE e_set_name = 'Undefined* ) 

INSERT INTO revenue_sets 
SELECT productjd, 'Undefined', 

null, null, null, null, 

null, null, null, null 
FROM corp_info 
WHERE productjd not in ( 

select productjd 

FROM revenue_sets 

WHERE r_set_name = 'Undefined' ) 
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INSERT INTO prod_camp_status 
SELECT product_id, 'Undefined'," 
FROM corp info 
WHERE productjd not in ( 

select product_id 

FROM prodcampstatus 

WHERE camp_status_name = 'Undefined* ) 

INSERT INTO prod_camp_type 
SELECT product_id, , Undeflned , , M 
FROM corp_info 
WHERE product Jd not in ( 

select productjd 

FROM prod_camp_type 

WHERE camp_type_name = 'Undefined' ) 

INSERT INTO prod_panel_package 
SELECT product_id, 'Undefined'," 
FROM corp_Jnfo 
WHERE product_id not in ( 

select productid 

FROM prod_panel_package 

WHERE package_name = 'Undefined' ) 
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Procedure Name: sp_DeleteCamp_Statuses 



@product_id numeric(9), 
@camp_status_name varchar(20) 



AS 

delete from camp_statuses where product_id = @product_id and camp__status_name = 
@camp_status_name 
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Procedure Name: sp_DeleteCamp_Types 

@product_id numeric(9), 
@camp_type varchar(50) 

AS 

delete from camp_types where product_id = @product_id and camp_type = @camp_type 
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Procedure Name: sp_DeletePanel_SubTypes 



@product_id numeric(9), 
@panel_subtype varchar(50) 

AS 

delete from p_sub_types where product_id = @product_id and panel_subtype = @panel_subtype 
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Procedure Name: sp_DeletePanel_TestTypes 



@product_id numeric(9), 
@test_type varchar(50) 

AS 

delete from p_test_types where product Jd = @product_id and testjype = @test_type 
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Procedure Name: sp_DeletePanel_Types 

@product_id numeric(9), 
@panel_type varchar(50) 

AS 

delete from p_types where productjd = @product_id and panel_type = @panel_type 
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Procedure Name: sp_DeIeteRPT_Def 



@rpt_id numeric(9) 
AS 

delete from rpt_Defs where rpt_id = @rpt_id 
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Procedure Name: sp_edit_autosetup 

@src_cat_name varchar(50) 
, @src_indicator varchar(IO) 
, @source_name varchar(250) 
, @valid_from_date datetime 
, @valid_to_date datetime 
, @setup_mask varchar(50) 
, @e_set_name varchar(50) 
,@login Varchar(50) 
, @rec_id numeric(8,0) 
, @isDelete numeric(l,0) 

AS 



If(@isDelete=l) 
begin 

delete from autosetupscheme where recjd = @rec_id 
end 

if(@isDelete=0) 
begin 

UPDATE autosetup scheme 

SET src_cat_name = @src_cat_name 

, source_name = @source_name 

, src_indicator = @src_indicator 

, valid_from_date = @ valid _from_date 

, valid_to_date = @va!id_to_date 

, setup_mask = @setup_mask 

, e_set_name = @e_set_name 
WHERE rec_id = @rec_id 
end 
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Procedure Name: sp_edit_autosetup_campaign_def 



@campaign_code varchar(50) 

, @campaign_description varchar(200) 

, @src_cat_name varchar(250) 

, @campaign_date datetime 

, @panel_scheme varchar(50) 

, @rec_id numeric(8,0) 

, @isDelete numeric(l,0) 



If(@isDeIete=l) 
begin 

delete from autosetup_campaign_def where rec_id = @rec_id 
end 

if(@isDeIete=0) 
begin 

UPDATE autosetup_campaign_def 
SET campaign_code = @campaign_code 

, campaign_description = @campaign_description 

, src_cat_name = @src_cat_name 

, campaign_date = @campaign_date 

, panel_scheme = @panel_scheme 
WHERE recjd = @rec_id 



End 
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Procedure Name: sp_edit_autosetup_panel_def 



@panel_scheme varchar(50) 
, @panel_codes varchar(255) 
, @panel_name varchar(50) 
, @rec_id numeric(8,0) 
, @isDelete numeric( 1 ,0) 



If(@isDelete=l) 
begin 

delete from autosetup_panel_def where rec id = @rec_id 
end 

if(@isDeIete=0) 
begin 

UPDATE autosetup__panel_def 
SET panel_scheme = @panel_scheme 

, panel_codes = @panel_codes 

, panel_name ~ @panel_name 
WHERE rec_id = @rec_id 



AS 



end 
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Procedure Name: procedure sp_edit_autosetup_renewal_psdef 



@src__cat_name varchar(50) 

, @source_name varchar(50) 

, @source_indicator varchar(50) 

, @prior_source_indicator varchar(255) 

, @valid_from_date datetime 

, @valid_to_date datetime 

, @rec_id numeric(8,0) 

, @isDelete numeric(l,0) 



If(@isDelete=l) 
begin 

delete from autosetup_renewaI_psdef where rec_id = @rec_id 
end 

if(@isDelete=0) 
begin 

UPDATE autosetup_renewa!_psdef 

SET src_cat_name = (gsrc^cat^name 
, source_name = @source_name 
, source_indicator = @source_indicator 
, prior_source_indicator = @prior_source_indicator 
, valid_from_date = @va!id_from_date 
, valid_to_date = @valid_to_date 

WHERE recjd = @rec_id 



AS 



end 
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Procedure Name: sp_Edit_Campaign 



@camp_name varchar(250), - 1 
@camp_date_fr smalldatetime, - 2 
@camp_type varchar(50), - 3 
@camp_status_name varchar(20), - 4 
-@camp_date_to smalldatetime, - 5 
-@agt_code varchar( 10), - 6 
— @agt__descr varchar(50), - 7 
@e_set_name varchai^SO),. — 8 
@r_set_name varchai^SO), - 9 
— @newstand_sale numeric(l8), — 10 
@budgeted_gross_pct numeric(18,3), —11 
@budgeted_vol numeric(18,3), -12 
©login VARCHAR(50), -13 

@rec_id numeric(8,0), 
@isDelete numeric(l,0) 

AS 

declare 

@lPRODUCT_ID numeric(8,0), 
@1CAMP_NAME varchar(50), 
@1S0URCE_NAME varchar(250), 
@lE_set_name Varchar(50), 
@lR_set_name Varchar(50), 
@lsrc_cat_name VARCHAR(30), 
©message VARCHAR(255) 

—Copy vars 

declare @copycampname varchar(50) 
declare @copies int 

-get camp, panel and other info for deletions from key table 
begin -sp 

select @1PR0DUCT_ID = product jd, 

@1CAMP_NAME = camp_name, 

@1S0URCE_NAME = source_name, 

@lsrc_cat_name = src_cat_name , 

@lE_set_name = E_set_name, 

@lR_set_name = r_setjiame 
from campaigns 
where rec_id = @rec_id 

if (@IsDelete=2) -then copy existing campaign and associated records into new record(s) 
begin 

set @copycampname = "Copy of " + @camp_name 

-Get number of next copy 
select @copies = (count(*) + 1) 
from campaigns 

where camp_name like @copycampname 
if ©copies < 10 set @copycampname = "Copy " + cast(@copies as varchar(l)) + M of" 
else set @copycampname = "Copy " + cast(@copies as varchar(2)) + " of" 



Integrated Marketing Technology 



9/27/00 3:38 PM 



Page 104 of 142 





IMT Subscription Marketing Reporting System 



-Insert new copy of campaign 
insert campaigns (src indicator, 



srccatname, 

product_id, 

camp_type, 

camp_name, 

camp_status_name, 

-agt_code, 

— agt_descr, 

camp_date_fr, 

— camp_date_to, 

e_set_name, 

r_set_name, 

grp_name, 

title_name, 

source_name, 

newstand_sale, 

budgeted_jgross_pct, 

budgeted_vol, 

campaign_code) 



src_cat_name, 

product_id, 

camp_type, 

@copycampname + @camp_name as campname, 

camp_status_name, 

— agt_code, 

— agt_descr, 

camp_date_fr, 

-dateadd(month, 1 ,camp_date_to) as camp_date_to, 

e_set_jiame, 

r_set_name, 

grp_name, 

titlename, 

sourcename, 

newstand_sale, 

budgetedjrrossjsct, 

budgeted_vol, 

campaign_code 
from campaigns 
where rec_id = @rec_id 

-Insert new copies of panels from the campaign we are copying 
insert panels 

select @copycampname + @camp_name as camp_name, 



src_indicator, 

panel_name, 

src_cat_name, 

product_id, 

panel_type, 

e_set__name, 

panel_subtype, 

r_set_name, 

test_type, 



-values 
select 



src_indicator, 
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panel_offer, 
panel_ofFer_price, 
panel_pkg, 
pane l_premi urn, 
panel_date_start, 
panel_date_end, 
grp_name, 
title_name, 
source_name, 
camp_type, 
camp_status_name, 
agt_code, 
agt_descr, 
camp_date_fr, 
camp_date_to, 
Newstand_Sale_Marker, 
Newstand_Sale, 
Budgetedjgross_pct, 
Budgeted_voI, 
campaign_code 
, panel_code 
, null as order_qty 
, null as dist_qty 
from panels 

where productjd = @lPRODUCT_ID 
and src_cat_name = @lsrc_cat_name 
and source_name = @ISOURCE_NAME 
and camp_name = @ICAMP_NAME 



end —if 

If (@isDelete=l) —then delete campaign and associated records 
begin 

declare cjceys cursor for /* rlOl recordset - the main/reference one */ 
select product_id, fuIl_promo_key 
from keys 

where product_id = @lproduct_id 
and camp_name = @lcamp_name 
and SOURCE_NAME = @1S0URCE__NAME 
and src_cat_name = @lsrc_cat_name 

declare 

@lkeys_PRODUCT_ID numeric(8 t 0), 
@lfull_promo_key varchar(50) 

open cokeys 

fetch cokeys into @Ikeys_product_id, @lfull _promoJcey 

while (@@fetch_status = 0) 
begin 

exec doRecycleKey @lkeysj>roductJd, @lfullj>romo_key 
fetch c_keys into @lkeys_product_id, @lfull_promoJcey 
end 

close cjceys 

deallocate cjceys 
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delete 
from keys 

where product_id = @lPRODUCT_ID 
and srccatname - @lsrc_cat_name 
and source_name = @lSOURCE_NAME 
and camp_name = @1CAMP_NAME 

delete 
from panels 

where product_id = @1PR0DUCT_ID 
and src_cat_name = @lsrc_cat_name 
and source_name = @iSOURCE_NAME 
and camp_name = @ICAMP_NAME 

delete from campaigns where rec_id = @rec_id 
set ©message = 'Campaign: ' + @1CAMP_NAME + ' Source: 1 + @1S0URCE_NAME + ' Src_cat: ' + 
@lsrc_cat_name + delete applied to panel and keys' 

exec spjoginfo @lproduct_id, ©login, T)elete Campaign*, ©message 
end 

if (@IsDelete=0) -Update 
begin 

update keys 
set camp_name = @camp_name, 
camp_type=isNull(@camp_type, r Undefmed , ), 
camp_status_name = isNull( @camp_statas_name,'Undefined*), 
camp_date_fr=@camp_date - fr, 
-camp_date_to=@camp_date_to, 
-agt_code=@agt_code, 
-agt_descr=@agt_descr, 

-Newstand_sale = @newStand_sale, 

budgeted_vol = @budgeted_vol, - 1 1 

budgeted_j*ross_pct = @budgeted_gross_pct 

where product Jd - @1PR0DUCT_ID 

and source_name = @1S0URCE_NAME 

and camp_name = @1CAMP_NAME 

and src_cat_name = @lsrc_cat_name 

update panels 
set camp_name = @camp_name, 

camp_type=isNulI(@camp_type, r Undefmed , ), 

camp_status_name = isNull( @camp_status_name, r Undefined , ) ) 

camp_date_fr=@camp_date_fr, 

— camp - date_to=@camp_date_to, 

—agt_code=@agt_code, 

~agt_descr=@agt_descr, 

-Newstand_sale = @newStand_sale, 

budgeted_vol = @budgeted_vol, - 1 1 

budgeted^gross j)ct = ©budgeted j£ross_pct 

where product Jd - @1PR0DUCT_ID 

and source_name = @1S0URCE_NAME 

and camp_name = @ICAMP_NAME 

and src_cat_name = @lsrc_cat_name 
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update campaigns 
set camp_name = @camp_name, 

camp_type=isNull(@camp_type 1 , Undeflned , ), 

camp_status_name = isNull( @camp_status_name, , Undefined , ) ) 

camp_date_fr=@camp_date__fr, 

— camp_date_to=@camp_date_to, 

-agt_code=@agt_code, 

-agt_descr=@agt_descr, 

e_set_name=isnuIl(@e - set_name;Undefined , ), 

^_set_name=isnulI(@^_set_name ^ , Unde^lned , ), 

-newstand_sale = @newstand_sale, 

budgeted_vol = @budgeted_vol, - 1 1 
budgeted_gross_pct = @budgeted _gross_pct 
where rec_id = @rec_id 
if (@e_Set_name o @lE_set_name ) 
BEGIN 
update panels 

set e_set_name = @e_Set_name 
WHERE product Jd = @1PR0DUCT_ID 
and source_name = @1S0URCE_NAME 
and camp_name = @1CAMP_NAME 
and e_set_name = @le_Set_name 
and src_cat_name = @lsrc_cat_name 

update keys 

set e_set_name = @e_Set_name 
WHERE product_id = @IPR0DUCT_ID 
and source_name = @1S0URCE_NAME 
and camp_name = @1CAMP_NAME 
and e_set_name = @Ie_Set_name 
and src_cat_name = @lsrc_cat_name 
END 

if (@r_Set_name o @lr_set_name ) 
BEGIN 
update panels 

set r_set_name = @r_Set_name 

WHERE product Jd = @1PR0DUCT_ID 

and source_name = @1S0URCE_NAME 

and camp_name = @1CAMP_NAME 

and r_set_name = @lr_Set_name 

and src_cat_name = @lsrc_cat_name 
update keys 

set r_set_name = @r_Set_name 

WHERE product_id = @1PR0DUCT_ID 

and sourcejiame = @1S0URCE_NAME 

and campjiame = @1CAMP_NAME 

and r_set_name = @lr_Set_name 

and src_cat_name = @lsrc_cat_name 
END 

close c_camp_info2 

deallocate c_camp_info2 

if @lcamp_name o @camp_name 

BEGIN 

set ©message = 'Old Campaign: ' + @1CAMP_NAME + New Campaign: ' + 
@CAMP_NAME + \ Source: ' + 



Integrated Marketing Technology 



9/27/00 3:38 PM 



Page 108 of 142 



IMT Subscription Marketing Reporting System 



@ISOURCE_NAME + ', Src_cat: ' + @lsrc_cat_name + \ edit applied to panel and keys' 

END 

ELSE 

BEGIN 

set ©message = 'Campaign: ' + @1CAMP_NAME + \ Source: 1 + 
@1S0URCE_NAME + \ Srcjrat: ' + @lsrc_cat_name + \ edit applied to panel and keys' 
END 

exec spjoginfo @lproduct_id, @login, 'Edit Campaign', ©message 

end —if 
end -sp 
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Procedure Name: sp_Edit_Corp_Panel_Sub_Type 

@panel_sub_type_name varchar(50), 
@panel_subjype_descr varchar(250), 

@rec_id numeric(8,0), 
@isDelete numeric(l,0) 

AS 

declare @o!d_value varchar(50) 

select @old_value = panel_sub_type_name 

From corp_pane l_sub_type 

where rec_id = @rec_id 



exec cascade_update 'panel_subtype', @old_vaIue, , Undefined', M PANELS" l -l 
delete from Corp_Panel_Sub_Type where rec_id = @rec_id 



if @old_value o @panel_sub_type_name 
begin 

exec cascade_update 'panel^subtype*, @old_value,@panel_sub__type_name, M PANELS M ,-l 
end 

update Corp_Panel_Sub_Type 

set panel_sub_type_name = @pane l_sub_type_name, 

panel_sub_type_descr = @panel_subjype_descr where rec_id = @rec_id 



If(@isDelete=l) 
begin 



end 
else 
begin 



end 
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Procedure Name: sp_Edit_Corp_Panel_Test_Type 



@panel_test_type_name varchar(50), 
@panel_test_type_descr varchar(250), 
@rec_id numeric(8 > 0), 
@isDelete numeric(l,0) 



declare @old_value varchar(50) 

select @oldvalue = panel_test_type_name 

From corp_panel_test_type 

where rec_id = @rec_id 

If(@isDeIete=l) 
begin 

exec cascade_update 'panel_testtype', @old_value, 'Undefinedy'PANELSVl 
delete from Corp_Panel_Test_Type where rec_id = @rec_id 

end 
else 
begin 

if @o!d_value o @panel_test_type_name 



exec cascade_update 'paneljesttype', @old_value, @panelJest_type_name ) "PANELS",-l 
end 

update Corp_Panel_Test_Type 

set panel_test_type_name = @panel_test_type_name, 

panel_test_type_descr = @panel_test_type_descr where rec_id = @rec_id 



AS 



begin 



end 
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Procedure Name: sp_Edit_Corp_PaneMType 



@pane l_type_name varchar(50), 
@panel_type_descr varchar(250), 
@rec_id numeric(8,0), 
@isDelete numeric(l,0) 



declare @old_vaIue varchar(50) 

select @old_value = pane l_type_name 
From corp_panel_type 
where rec_id = @rec_id 

If(@isDelete=l) 
begin 

exec cascade_update 'panel_type', @old_value t 'Undefined , , , PANELS , > - I 
delete from CorpPaneMType where rec_id = @rec_id 
end 

else 
begin 

if @old_value o @panel_type_name 
begin 

exec cascade_update 'panel_type f , @old_value, @panel_type_name, 'PANELS', -1 
- exec corp_cascade_update 'panel_type', @old_value,@panel_type_name 
end 

update Corp_Panel_Type 

set panel_type_name = @panel_type_name, 

panel_type_descr = @panel_type_descr where rec_id = @rec_id 

end 



AS 
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Procedure Name: sp_Edit_Key 



@PJCEY_DESCR varchar(250), 

@MAIL_QTY_OVERRIDE varchar( 1 0), -decimal(l 8,0), 

@Newstand_Sale numeric(18,0), 

@Newstand_Sale_Marker char( 1), 

@list_cat_name varchar(250), 

@list_name varchar(250), 

@list_segment_name varchar(250), 

@LIST_COST_ACTUAL_CPM numeric(18,0), 

@list_cost_basis varchar(25), 

@list_cost_factor numeric(9,2), 

@merge_purge_qty numeric(9), 

@E_SET_NAME varchar (50), 

@R_SET_NAME varchar(50) , 

@panel_pkg varchar(50), 

@subtotal_flag varchar(6), 

@optional_efTort_id Varchar(50), 

@rec_id numeric^O), 

@isDeIete numeric(l,0) 

AS 

If(@isDe!ete=l) 
begin 

declare 

@rPRODUCT_ID numeric(8,2), 

@rFULL_PROMO_KEY varchar(50) 
-get pid and key for recycle key routine 
declare c_key_info_r cursor for 
select product id, full_promo_key 
from keys where recjd = @rec Jd 
open cjcey_infb_r 
fetch c_key_info_r into 

©rPRODUCTJD, 

@rFULL_PROMO_KEY 
close c__key_info_r 
deallocate c_key_info_r 

execute doRecydeKey @rPRODUCT_ID, @rFULL_PROMO_KEY 

delete from keys where rec_id = @rec_id 

end 

else 

begin 

-validate data 

If not(@MAIL_QTY_OVERRIDE > 0) 

select @MAIL_QTY_OVERRIDE=null 
If (@E_SET_NAME = ,! 0 M ) 

select @E_SET_NAME=null 
If (@R_SET__NAME = "0") 

select @R_SETNAME=null 
-end data validation 




Integrated Marketing Technology 



9/27/00 3:38 PM 



Page 113 of 142 






IMT Subscription Marketing Reporting System 



update keys 



set P_KEY_DESCR=@P_KEY_DESCR, 

MAIL_QTY_OVERRIDE=@MAIL_QTY_OVERRIDE, 

Newstand_Sale = @Newstand_SaIe, 

Newstand_Sale_Marker = @Newstand_Sale_Marker, 

LIST_CAT_NAME-isnull(@Iist_cat_name, , Undefined , ) ) 

LIST - _NAME=isnu^(@list_name, , Undefined , ), 

LIST_SEGME>rr_NAME=isnull(@Iist_segment_naine ) aJndefined , ) ) 

LIST_COST_ACTUAL_CPM=@LIST_COST_ACTUAL_CPM, 

LIST_COST_BASIS = @list_cost_basis, 

list_cost_factor = @list_cost_factor, 

merge_purge_qty = @merge_purge_qty, 

e_set_name=isnuH(@e_set_name, , Undefined , ) ) 

r_set_narne ::= isnull(@^_set_na^ne, , Undefined , ), 

PANE^PKG^isnullftgpaneljkg/Undefined'), 

subtotaI_flag=@subtotal_flag, 

optional^effortjd = @optional_effort_id, 

date_assigned = getdateO 

where rec_id = @rec_id 



end 
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Procedure Name: sp_Edit_Panel 



@panel_name varchar(250), - 0 
@panel_date_start datetime, - 1 
@panel_type varchar(50), — 2 
@panel_subtype varchar(50), - 3 
@test_type varcharXSO), - 4 
@panel_pkg varchar(50), -5 
@e_set_name varchar(50), -6 
@r_set_name varchai^SO), — 7 
-@newstand_sale_marker char(l), - 8 
©login Varchar(50), -9 

@rec_id numeric(8,0), — i 
@isDelete int — 1 

AS 

declare 

@IPRODUCT_ID numeric^O), 
@IPANEL_NAME varchar(50), 
@ICAMP_NAME varchar(50), 
@1S0URCE_NAME varchar(250), 
@1SRC_CAT_NAME varchar(30), 
@lFull_promo_key varchar(25), 
@lkeys_jjroduct_id numeric(8,0), 
@1E_SET_NAME varchar(50), 
@1R_SET_NAME varchar(50), 
@lpanel_pkg varchar(50), 
@message Varchar(255), 
@src_indicator char(3), 
@grp_name varchar(50), 
@copies int, 

@copypanelname varchar(50) 

-get panel and other info for deletions from key table 
select @lPRODUCT_ID = PRODUCTJD, 

@ IP ANE L_N AME = PANEL_NAME, 
@1CAMP_NAME = CAMP_NAME, 
@1S0URCE_NAME = SOURCE_NAME, 
@1SRC_CAT_NAME = SRC_CAT_NAME, 
@le_set_name = e_set_name, 
@lr_set jiame = r_set_name, 
@lpanel _pkg = panel_pkg, 
@src_indicator = src_indicator, 
@grp_name = grp_name 

from panels 

where recid = @rec_id 



If(@isDeIete=l) 
begin 

declare c_keys cursor for /* rlOl recordset - the main/reference one */ 
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select product_id, full_promo_key 
from keys 

where product_id = @lproduct_id 
and camp_name = @lcamp_name 
and SOURCE_NAME - @lSOURCE_NAME 
and panel_name = @Ipanel_name 
and src_cat_name = @lsrc_cat_name 

open cokeys 

fetch cjceys into @lkeys_product_id, @Ifull_promoJcey 

while (@@fetch_status = 0) 
begin 

exec doRecycleKey @lkeys__product id, @lfull_promoJcey 

fetch c_keys into @lkeys_product_id, @lfull_promojcey 
end 
close c_keys 
deallocate cjceys 

delete from keys 

where product jd = @1PR0DUCT_ID 
and src_cat_name = @1SRC_CAT_NAME 
and source_name = @lSOURCE_NAME 
and camp_name = @!Camp_name 
and panel_name=@lPANEL_NAME 

delete from panels 
where rec_id = @rec_id 

-close c_panel info2 

—deallocate c_panel_info2 
set ©message = 'Panel:' + @IPANEL_NAME + 'Campaign: 1 + @1CAMP_NAME + \Source:' + 
@1S0URCE_NAME + \Src_cat:' + @lsrc_cat_name + f ,delete applied to panel and keys' 
exec spjoginfo @lproduct_id, @Iogin, 'Delete Panel', ©message 

end 

if(@IsDelete=0) 

begin 

—declare 

-get expense and revenue set names for pass down if blank 

- NOT USING ANYMORE, this stuff should be defined when keys are assigned 

select @lE_Set_name = E_SET_NAME, 
@lr_Set_name = R_SET_NAME 

- from campaigns where productjd = @lPRODUCT_ID 

-and SRCCATNAME = @1SRC_CAT_NAME and SOURCE J^AME = @ISOURCE_NAME and 
CAMP_NAME = @1CAMP_NAME 

PRINT 'e set name-' + @e_setjiame + '-e set name - + @1E_SET_NAME + '--' + CAST( 
@1PR0DUCT_ID as varchar) 

update keys 

set paneljiame = @panel_name, 

panel JypeHsnull(@panel_type,'Undefined , ) > 

pane^subtype^isnullCfgpane^subtype/Undefined'), 
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test_type=isnull(@test_type/Undefined'), 

- paneljjkg^isnull^paneljkg/Undefined'), 
panel_date_start=@paneljdate_start 

- newstand_sale_marker = @newstand_sale_marker 

- e_set_name=isnull(@e_set_name ) @lE_SET_NAME), 

- r_set_name=isnull(@r_set_name,@lR_SET_NAME) 

where (panel_name + ':'+ camp_name +':'+ src_cat_name +':'+ source_name + + 
cast(product_id as yarchar) ) 

= (select panel_name +*:'+ camp_name +':'+ src_cat_name +':'+ source_name + ':'+ 
cast(product_id as varchar) from panels where rec_id = @rec_id ) 
if (@le_set_name o @e_set_name) 
begin 

update keys 
set e_set_name = @e_set_name 

- panel_type=isnull(@panel_type/Undef^ned , ), 

- paneI_subtype=isnull(@panel_subtype 1 , Undefined , ), 

- test_type=isnull(@test_type/Undefined'), 

- panel_offer=@panel_offer, 

- panel_offer_price=@panel_offer - price, 

- panel_pkg=isnuH(@panel - pkg, , Undefined'), 

- panel_premium=@panel_premium, 

- panel_date_start=@panel_date_start, 

- panel_date_end=@panel_date_end 

" r_set_name=isnull(@r_set_name,@lR_SET_NAME) 
where e_set_name = @le_set_name and 

(panel_name + ':'+ camp_name +':'+ src_cat_name +':'+ cast(product_id as varchar) ) 

= (select panel_name +':'+ campjiame +':'+ src_cat_name +':*+ cast(product_jd as 

varchar) 

from panels where recjd = @recjd ) 

end 

if (@lr_set_name o @r_set_name) 
begin 

update keys 
set r_set_name = @r_set_name 
~ panel_type=isnull(@panel_type, , Undefined , ) ) 

panel_subtype=isnull(@panel_subtype, , Undefined , ) ) 

- tes^type^snulK^es^typejTJndefined'), 

- panel_orTer=@panel_offer, 

- panel_offer_price=@panel_offer - price, 

- paneI_pkg=isnull(@paneIj5kg, f Undefined'), 

- panel jremium=@panel_premium, 

- panel_date_start=@panel_date_start, 

- pane l_date_end=@pane l_date_end 

r_set_name=isnull(@r_set_name,@lR_SET_NAME) 
where r_set_name = @lr_set_name and 

(panel_name + ':'+ camp_name +':'+ src_cat_name +*:'+ 
source_name + ':' + cast(product_id as varchar) ) = 
(select paneljiame +':'+ camp_name +':'+ src_cat_name +':'+ 
source_name + ':' + cast(product_id as varchar) 
from panels where rec_id = @rec_id ) 

end 

if (@lPanel__pkg o @panel_pkg) 
begin 
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update keys 

set PanelPkg = @panel_pkg 
panel_type=isnull(@panel_type/Undefined'), 
panel_subtype=isnulI(@panel_subtype, , Undefmed , ), 
test_type=isnulI(@test_type, , Undeflned , ), 
panelj)ffer=@panel_offer, 
paneI_ofFer_price=@panel_ofFer_price, 
panel_pkg=isnull(@pane!J5kg,^Jndefined , ), 
panel_preraiuin=@panel_premium, 
paneljiate_start=@panel_date_start, 
panel_date_end=@panel_date_end 

r_set_name=isnull(@r_set_name,@lR_SET_NAME) 
where Panel_Pkg = @lpanel_pkg and 

(panel_name + ':'+ camp_name +':'+ src_cat_name +':'+ 
source_name + ':' + cast(product_id as varchar) ) = 
(select panel_name +V+ camp__name +':'+ src_cat_name +':'+ 
source_name + ':' + cast(product_id as varchar) 
from panels where rec_id = @rec_id ) 

end 



update panels 

set panel_name = @panel_name, 

panel_type=isnull(@panel_type l , Undeflned , ), 

panel_subtype=isnull(@panel_subtype, r Undeflned , ), 

test_type=isnull(@test - type, , Undefined'), 

panel_pkg=isnull(@pane!_pkg, l Undefuied'), 

pane l_date_start=@panel_date_start, 

e_set_name=isnull(@e_set_name,@lE_SET_NAME), 

r_set_name=isnull(@r_set_name,@lR_SET_NAME) 

- newstand_sale_marker = @newstand_sale_marker 
where recjd = @rec_id 



if @lpanel_name o @panel_name 
BEGIN 

set ©message = 'Old Panel: 1 + @IPANEL_NAME + \New Panel:' + @Panel_name + 
•.Campaign: 1 + @1CAMP_NAME + \Source:' + @1S0URCE_NAME + ',Src_cat:' + 
@lsrc_cat_name + \edit applied to panel and keys' 



set ©message = 'Panel:' + @PANEL_NAME + 
',Campaign:' + @1CAMP_NAME + '.Source:' + @ISOURCE_NAME + \Src_cat:' + 
@lsrc_cat jiame + \edit applied to panel and keys' 

end 

exec spjoginfo @lproduct_id, @login, 'Edit Panel', ©message 



END 
ELSE 
BEGIN 



end 



if (@IsDelete=2) -then copy existing panel 
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begin 

set @copypanelname = 'Copy of ' + @panel_name 

—Get number of next copy 
select @copies = (count(*) +1) 
from panels 

where panel name like @copypanelname 
and camp_name = @lCamp_name 
and src_cat_name - @lsrc_cat_name 
and product_id = @lproduct_id 
and source_name = @lsource_name 
if @copies < 10 set @copypanelname = "Copy " + cast(@copies as varchar(l)) + " of " 
else set @copypanelname = "Copy " + cast(@copies as varchar(2)) + " of " 

set @panel_name = @copypanelname + @panel_name 
insert into panels (panel_name . 

, panel type 

, panel_subtype 

, test_type 

, panel_pkg 

, panel_date_start 

, e_set_name 

, r_set_name 

, product id 

, camp_name 

, source_name 

, src_cat_name 

, src indicator 

, grp_name) 

values 

(@panel_name 

, isnull(@panel_type,'Unde fined') 
, isnull(@panel_subtype,TJndefined') 
, isnuIl^tes^type/Undefined') 
, isnull^pane^kg^ndefined') 
, @panel_date_start 

, isnull(@e_set_name,@lE_SET_NAME) 

, isnull(@r_set_name,@lR_SET_NAME) 

, @1PR0DUCTJD 

, @1CAMP_NAME 

, @1S0URCE_NAME 

, @1SRC_CAT_NAME 

, @src_indicator 

, @grp_name 

) 



Integrated Marketing Technology 



9/27/00 3:38 PM 



Page 119 of 142 



IMT Subscription Marketing Reporting System 



Procedure Name: sp_edit_prior_Source_desc 



@prior_source_identifier char (2) 
, @prior_source_desc varchar (20) 
, @billing_cur_src_desc VARCHAR(255) 
, @model_source_cat varchar(50) 
, @model_source varchar(50) 
, @agent_src_desc varchar(50) 
, @valid_from_date datetime 
, @valid_to_date datetime 
» @rec_id numeric(8,0) 

, @isDelete int ' 

AS 

declare @old_value varchar(50), @old_product_id numeric(9) 

select @old_va!ue = prior_source_identifier, 
@old_product_id = product_id 
From prior_source_desc 
where rec_id = @rec_id 

If(@isDeIete=l) 
begin 

exec cascade_update , prior_source_identifier , > @oId_value/-7KEYS\@old_product_id 
delete from prior_source_desc where rec_id - @rec_id 

end 

else 

begin 

exec cascade_update , prio^_sou^ce_identifier , , @oId_value/-7Est_max_efFort\ 

@old_product_id 

update prior_source_desc 

set -prior_source ^identifier = @prior_source_identifier , 

prior_source_desc = @prior_source_desc 

, billing_cur_src_desc = @billing_cur_src_desc 

, valid_from_date = @valid_from_date 

, valid_to_date = @valid_to_date 

, agent_src_desc = @agent_src_desc 

, model_source = @model_source 

, model_source_cat = @mode!_source_cat 

where rec_id = @rec_id 

end 
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Procedure Name: sp_Edit_Prod_Camp__Status 

@camp_status_name varchar(20), 
@camp_status_descr varchar(250) ) 

@rec_id numeric(8,0), 
@isDelete numeric(l,0) 



Declare @old_value VARCHAR(255), @product_id numeric(9) 

select @old_value = 
camp_Status_name, 

@product_id = product_id , 
FROM prod_camp_status 
WHERE rec_id = @rec_id 

If(@isDelete=l) 
begin 

exec cascade_update 'camp_status_name', @old_value, 'Undefined', "CAMPAIGNS", @product_id 

delete from Prod_Camp_Status where rec_id = @rec_id 
end 
else 
begin 

if @old_value o @camp_status_name 
begin 

exec cascade update 'camp_status_name', @old_value, @camp_status_name, 'CAMPAIGNS', 
@product_id 

- exec prod_cascade_update_w_camp 'camp_status_name*, @old_value, @camp_status_name , 
@product_id 
end 



update Prod_Camp_Status 

set camp_status_name = @camp_status_name, 
camp_status_descr = @camp_status_descr where rec_id = @rec_id 

end 



AS 
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Procedure Name: sp_Edit_Prod_Camp_Type 



@camp_type_name varchar(20) ) 
@camp_type_descr varchar(250), 
@rec_id numeric(8,0), 
@isDelete numeric(l,0) 

AS 

Declare @old_value VARCHAR(255), @product_id numeric(9) 

select @old_value = 

camp_type_name, 

@product_id = product_id 
FROM prod_camp_type 
WHERE recjd = @rec_id 

If(@isDelete=l) 
begin 

exec cascade_update 'camp_type', @old_value, 'Undefined', 'CAMPAIGNS', @product_id 
- exec prod_cascade_update_w_camp , camp_type', @old_value, 'Undefined', @product_id 

delete from Prod_Camp_Type where rec_id = @rec_id 
end 
else 
begin 

if @old_value o @camp_type_name 
begin 

exec cascade_update 'camp_type_name', @o!d_value, @camp_type_name, 'CAMPAIGNS', 
@productjd 

~ exec prod_cascade_update_w_camp 'camp_type\ @old_va!ue, @camp_type_name, @product_id 
end 

update Prod_Camp_Type 

set camp_type_name = @camp_type_name, 

camp_type_descr = @camp_type_descr where rec_id = @rec_id 



end 
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Procedure Name: sp_Edit_Prod_JE_Set 



@product_id numeric(8, 0) , 
@e_set_name varchar (50) , 
@print_cost numerical 1,3), 
@print_cpm_cpu varchar (10) , 
@print_basis varchar (20) , 
@merge_purge numeric(l 1,3), 
@merge_cpm_cpu varchar (10) , 
@merge_basis varchar (20) , 
@!tr_cost numeric( 11,3), 
@ltr_cpm_cpu varchar (10) , 
@ltr_basis varchar (20) , 
@postage_out_cost numeric(l 1, 3) , 
@postage_out_cpm_cpu varchar (10) , 
@postage_out_basis varchar (20) , 
@postage_in_costnumeric(ll,3) , 
@postage_in_cpm_cpu varchar (10) , 
@postage_in_basis varchar (20) , 
@premium_costnumeric(U,3) , 
@premium_cpm_cpu varchar (10) , 
@premium_basis varchar (20) , 
@badpay_cost numeric(l 1,3), 
@badpay_cpm_cpu varchar (10) , 
@badpay_basis varchar (20) , 
@billing_cost numeric(l 1, 3) , 
@billing_cpm_cpu varchar (10) , 
@biiling_basis varchar (20) , 
@subs_svc_costs numeric(l 1, 3) , 
@subs_svc_cpm_cpu varchar (10) , 
@subs_svc_basis varchar (20) , 
@exp_other_costsnurneric(ll,3) , 
@exp_other_cpm_cpu varchar (10) , 
@exp_other_basis varchar (20) , 
@rec_id numeric(8,0), 
@isDe lete numeric( 1,0) 

AS 

Declare @old_value VARCHAR(255), @my_product_id numeric(9) 
declare @e_set_id numeric(9) 

select @old_value = 
e_set_name, 

@my_product_id = product_id 
FROM expense_sets 
WHERE recjd = @rec_id 

If(@isDelete=l) 
begin 

exec cascade_update 'e^set^name', @o!d_value, XJndefinedVCAMPAIGNS', @product_id 
delete from Expense_sets where recjd = @rec_id 
end 
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else 
begin 

if @old_value o @e_set_name 
begin 

set @e_set_id = -l 
select @e_set_id = recjd 



if @e_set_id = -1 exec sp_Add_Prod_E_Set -Create New Record, set everything to new e set and 
delete old one 

@product_id, @e_set_name, @print_cost, @print_cpm_cpu, @print_basis, 
@merge_purge, @merge_cpm_cpu, @merge_basis 

, @ltr_cost, @ltr_cpm_cpu, @ltr_basis, @postage_out_cost, @postage_out_cpm_cpu, 
@postage_out_basis, @postage_in_cost, @postage_in_cpm_cpu 

, @postage_in_basis, @premium_cost, @premium_cpm_cpu, @premium_basis, 
@badpay_cost, @badpay_cpm_cpu, @badpay_basis, @bi!ling_cost 

, @billing_cpm_cpu, @billing_basis, @subs_svc_costs, @subs_svc_cpm_cpu, 
@subs_svc_basis, @exp_other_costs, @exp_other_cpm_cpu 

, @exp_other_basis 

exec cascade_update ^set^name', @old_value, @e_set_name,'CAMPAIGNS\ @product_id 
delete from expense_sets where rec_id = @rec_id 



update expense_sets 

set e_set_name - @e_set_name , 
print_cost = @print_cost , 
print_cpm_cpu = @print_cpm_cpu , 
print_basis = @print_basis , 
merge_purge = @merge_purge , 
merge_cpm_cpu = @merge_cpm_cpu , 
merge_basis - @merge_basis , 
ltr_cost = @ltr_cost , 
ltr_cpm_cpu = @ltr_cpm_cpu , 
ltr_basis = @ltr_basis , 
postage_out_cost = @po.stage_out_cost , 
postage_out_cpm_cpu =@postage_out_cpm_cpu , 
postage_out_basis =@postage_out_basis , 
postage_in_cost =@postage_in_cost , 
postage_in_cpm_cpu =@postage_in_cpm_cpu , 
postage_in_basis = @postage_in_basis , 
premium_cost = @premium_cost , 
premium_cpm_cpu = @premium_cpm_cpu , 
premium_basis = @premium_basis , 
badpay_cost = @badpay_cost , 
badpay_cpm_cpu = @badpay_cpm_cpu , 
badpay_basis = @badpay_basis , 
billing_cost = @billing_cost , 
billing_cpm_cpu = @billing_cpm_cpu , 
billing_basis = @billing^_basis , 
subs_svc_costs = @subs_svc_costs , 
subs_svc_cpm_cpu = @subs_svc_cpm_cpu , 
subs_svc J>asis - @subs_svc_basis , 



from expense_sets 

where e_set_name = @e_set_name 

and product_id = @product_id 



end 
else 
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exp_other_costs = @exp_other_costs , 
exp_other_cpm_cpu = @exp_other_cpm_cpu , 
exp_other_basis = @exp_other_basis 
where rec_id = @rec_id 

end 
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Procedure Name: sp_Edit_Prod_List_Cat 



@name varchar(250), 
@descr varchar(250), 
@rec_id numeric(8,0), 
@isDeiete numeric(l,0) 

AS 

Declare @old_value VARCHAR(255), 
@product_id numeric(9) 

select @old_value = 

list_cat_name, 

@product_id = product_id 
FROM list_cats 
WHERE rec_id = @rec_id 

If(@isDeiete=l) 
begin 

exec cascadejipdate , LIST_CAT_NAME\ @oid_value, Undefined*, "KEYS", ©product Jd 
delete from List_Cats where recjd = @rec_id 

end 
else 
begin 

if @name o @old_value 
begin 

exec cascade_update 'LIST_CAT_NAME\ @o!d_va!ue, @name, "KEYS", @product_id 
end 

update List_Cats 

set List_Cat_name = @name, 

List_Cat_descr = @descr where rec_id = @rec_id 

end 
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Procedure Name: sp_Edit_Prod_List_Name 



@name varchar(250), 
@descr varchar(250), 
@rec_id numeric(8,0) ( 
@isDelete numeric( 1 ,0) 

AS 

Declare @old_value VARCHAR(255), @product_id numeric(9) 

select @old_value = 
listjiame, 

@product_id = product_id 
FROM list_names 
WHERE rec_id = @rec_id 



If(@isDelete=l) 
begin 

exec cascadejipdate *LIST_NAME\ @old_value, 'Undefined', "KEYS", @product_id 
delete from List_Names where rec_id = @rec_id 

end 
else 
begin 

if @name o @old_value 
begin 

exec cascade_update 'LIST_NAME\ @old_value, @name, "KEYS", @product_id 



end 



update List_NAMES 

set List_name = @name, 
List_Name_description = @descr 
where rec_id = @rec_id 



end 
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Procedure Name: sp_Edit_Prod_List_Segment 



@name varchar(250), 
@descr varchar(250), 
©recjd numeric^,©), 
@isDelete numeric(l,0) 



Declare @old_value VARCHAR(255), 
@product_id numeric(9) 

select @old_value = 

list_segment_name, 

©productjd = productjd 
FROM list_segments 
WHERE rec_id = ©recjd 

If(@isDelete=l) 
begin 

exec cascade_update 'LISI^SEGMENT^NAME*, @old_value, Undefined', "KEYS", ©productjd 
delete from List_Segments where rec_id = @rec_id 
end 



if @name o @old_value 
begin 

exec cascade_update *LIST_SEGMENT_NAME\ @old_value, ©name, "KEYS", ©productjd 
end 



update List_Segments 

set List_Segment_name = ©name, 

List_Segment_description = ©descr where recjd = ©recjd 

end 



AS 



else 
begin 
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Procedure Name: sp_Edit_Prod_Panel_Package 



@package_name varchar(50), 
@package_description varchar(250), 
@rec_id numeric(8,0), 
@isDelete numeric(l ) 0) 



If(@isDelete=l) 
begin 

delete from prod_panel_package where recjd = @rec_id 



update prod_panel_package 

set package_name = @package_name, 

package_description = @package_description where rec_id = @rec_id 

end 



AS 



end 
else 
begin 
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Procedure Name: sp_edit_Prod_R_Set 



@product_id numeric(8, 0), 
@r_set_name varchar (50) , 
@subs_revenue numeric(l 1,3), 
@subs_cpm_cpu varchar (10) , 
(gad _re venue numeric(l 1,3), 
@ad_cpm_cpu varchar (10), 
@listrental_revenue numeric(l 1, 3) , 
@listrental_cpm_cpu varchar (10), 
@other_revenue numeric(l 1, 3), 
@other_cpm_cpu varchar (10), 
@rec_id numeric(8,0), 
@isDelete numeric(l,0) 



Declare @old_value VARCHAR(255), @my_product_id numeric(9) 

select @old_value = r_set_name, 

@my_product_id ~ product_id 
FROM revenue_sets 
WHERE rec_id = @rec Jd 

If(@isDeIete=l) 
begin 

exec cascade_update ^se^name', @old_value, 'Undefined'/CAMPAIGNS 1 , @product_id 

delete from Revenue_sets where rec_id = @recjd 
end 
else 
begin 

if @o!d_value o @r_set_name 
begin 

exec cascade_update 'r_set_name\ @old_value, @r_set_name /CAMPAIGNS', @product_id 

end 

update revenue_sets 
set product_id =@product_id , 

r_set_name = @r_set_name , 

subs_revenue = @subs_revenue , 

subs_cpm_cpu =@subs_cpm_cpu , 

ad_revenue = @ad_revenue, 

ad_cpm__cpu = @ad_cpm_cpu, 

listrental - revenue= @listrental_revenue, 

listrental_cpm_cpu = @Hstrental_cpm_cpu , 

other_revenue = @other_revenue, 

other_cpm_cpu =@other_cpm_cpu 
where rec_id = @rec_id 
end 



AS 



Integrated Marketing Technology 



9/27/00 3:38 PM 



Page 130 of 142 





IMT Subscription Marketing Reporting System 



Procedure Name: sp_Edit_Source 



@source_name varchar(250), 
@src_indicator varchar(10), 
@login Varchar(50), 
@rec_id numeric(8,0), 
@isDelete numeric(l,0) 



If(@isDelete=l) 
begin 

delete from source where rec_id = @rec_id 
end 
else 
begin 
declare 

@PRODUCT_ID numeric(8,0), 
@src_cat_name varchar(50), 
@old_source_name varchar(30), 
@old_src_ind varchar(3), 
©message VARCHAR(200) 
SELECT @PRODUCT_ID = Productjd , 
@src_cat_name = src_cat_name, 
@old_source_name = source_name , 
@old_src_ind = src_indicator 

FROM source where rec_id =@rec_id 

IF @source_name o @old_source_name or @src_indicator o @old_src_ind 



set @message = 'Change applied to Panel, Campaign and Key levels as well as Source* 

UPDATE campaigns 

SET source_name = @source_name, 

src Jndicator = @src_indicator 
WHERE Productjd = ©Productjd 

and src_cat_name = @src_cat_name 

and source_name - @old_source_name 

and src_indicator = @old_src Jnd 
UPDATE Panels 

SET source_name = @source_name, 

srcjndicator = @src_indicator 
WHERE Productjd = ©Product jd 

and src_cat_name = @src_cat_name 

and sourcejiame = @old_source_name 

and src_indicator = @old_srcjnd 
UPDATE keys 

SET source_name = @source_name, 

src_indicator = @src_indicator 
WHERE Productjd = @Product_id 

and src_cat_name = @src_cat_name 



AS 



BEGIN 
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and sourcename = @o!d_source_name 
and src_indicator = @old_src_ind 

update source 

set source_name = @source_name, 

src_indicator = @src_indicator where rec_id = @rec_id 

exec spjoginfo @product_id, @login, 'Edit Source*, @message 
end 
end 
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Procedure Name: sp_edit_Source_description 



@u_source_name varchar(250), 
@u_source_description varchar(250), 
@rec jd numeric(8,0), 
@isDelete numeric(l,0) 

AS 

If(@isDeIete=l) 
begin 

delete from Source_descriptions where rec_id = @rec_id 



update Source_descriptions 

set u_source_name = @u_source_name; 

u_source_description = @u_source_description where rec_id = @rec_id 

end 



end 
else 
begin 
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Procedure Name: sp_LogInfo 



@product_id varchar(250), 
@login varchar(50), 
-log_timestamp 
@action varchar(50), 
@action_description varchar(100) 

As 

insert into logs (product_idjogin,log_timestamp,action,action_description) values 
(@product_id,@login,getdateO,@action,@action_description) 
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Procedure Name: sp RemoveDuplicatelOlKeys 



@pid numeric(9) 
AS 

declare @rl01 Jcey varchar(10), @select_date smaIldatetime,@product_id numeric(8,0), @rct_rec_num 
decimal(9),@rl01_reorg_date smalldatetime,@keyCount numeric(8,0) 



declare c_rl01dup cursor for 

select product_id,rl01_key, rl01_reorg_date, count(rlOlJcey) as cnt,rnax(rct_rec_nurn) as maxRecNum 
from rlOi_flow where product_id = @pid group by product_id,rl01_key,rl01_reorg_date order by 
product_id, cnt desc, rl01_key 

open cjiOldup 

fetch c_rl01dup into @productjd,(^l01_key,(2^101_re^ 
while (@@fetch_status = 0 and @KeyCount > 1) 
begin 

delete from r 10 Inflow where product_id = @product_id and rl01_reorg_date = 
@ri01_reorg^_date and rl01_key = @rl01_key and rct_rec_num < @rct_rec_num 
fetch c_rl01dup into @productjd,@rl01 Jcey,(^101_reo^ 
end 

close c_riOIdup 
deallocate cjiOIdup 
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Procedure Name: spRemoveDu plica te401 Keys 



@pid numeric(9) 
AS 

declare @r401_key varchar(10), @select_date smaIldatetime,@product_id numeric(8,0), @r401_rec_num 
decimal(9),@r401_reorg_date smalIdatetime,@keyCount numeric(8,0) 



declare c_r401dup cursor for 

select product_id,r401_key, r40i_reorg_date, count(r40l_key) as cnt,max(r401_rec_num) as maxRecNum 
from r401_flow where product_id = @pid group by product_id,r401Jcey,r401_reorg_date order by 
product_id, cnt desc, r401_key 



openc_r401dup 

fetch c_r401dup into @productjd,<2^401 Jcey,(2^401 j-eor^^ 
while (@@fetch_status = 0 and @KeyCount > 1) 
begin 

delete from r40 l_flow where product_id = @product_id and r40 l_reorg_date = 
@r401_reorg_date and r401_key = @r40l_key and r401_rec_num < @r401_rec_num 

fetch c_r401dup into @product_id,@r40l_key,@r401 - reorg_date,@keyCount,@r401_rec_num 
end 

close c_r401dup 
deallocate c_r401dup 
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Procedure Name: sp_UpdateCamp_Statuses 



@product_id numeric(9), 
@camp_status_name varchar(20), 
@camp_status_descr varchar(250) 1 
@actionParam varchar(20), 
@kname varchar(20) 



If (@actionParam- AddRec') 
begin 

insert into camp_statuses (product_id, camp_status_name, camp_status_descr) values (@product_id, 

@camp_status_name, @camp_status_descr) 

end 

else 

If (©actionParam-EditRec 1 ) 
begin 

update camp_statuses set camp_status_name = @camp_status_jiame, camp_status_descr = 
@camp_status_descr 

where product_id = @product_id and camp_status_name = @kName 
end 



AS 
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Procedure Name: sp_UpdateCampJTypes 



@product_id numeric(9), 
@camp_type varchar^SO), 
@camp_type_descr varchar(250), 
@actionParam varchar^O), 
@kname varchar(20) 



If (@actionParam= , AddRec , ) 
begin 

insert into camp_types (product_id, camptype, camp_type_descr) values (@product_id, @camp_type, 

@camp_type_descr) 

end 

else 

If (@actionParam-EditRec') 
begin 

update camp_types set camp_type = @camp_type, camp_type_descr = @camp_type_descr 

where product_id = @product_id and camp_type = @kName 

end 



AS 
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Procedure Name: sp_UpdatePanel_SubTypes 



@product_id numeric(9), 
@panel_subtype varchar(50), 
@panel_subtype_descr varchar^fO), 
@actiora°aram varcharpO), 
@kname varchar(20) 



If (@actionParam- AddRec') 
begin 

insert into p_subjypes (producMd, panel_subtype, panel_subtype_descr) values (@productjd, 

@panel_subtype, @panel_subtype_descr) 

end 

else 

If (@actionParam- EditRec 1 ) 
begin 

update p_sub_types set panel_subtype = @panel_subtype, panel_subtype_descr = @panel_subtype_descr 

where productjd = @product_id and panel_subtype = @kName 

end 



AS 
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Procedure Name: sp_UpdatePanel_TestTypes 



@product_id numeric(9), 
@test_type varchar(50), 
@test_type_descr varchar^SO), 
@actionParam varchar(20), 
@kname varchar(20) 



If (@actionPararn- AddRec') 
begin 

insert into p_test_types (product_id, test_type, test__type_descr) values (@product_id, @test_type, 

@test_type_descr) 

end 

else 

If (@actionParam- EditRec') 
begin 

update p_test_types set test_type = @test_type, test_type_descr = @test__type_descr 

where product_id = @product_id and test_type = @kName 

end 



AS 
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Procedure Name: sp_UpdatePanel_Types 

@product_id numeric(9), 
@panel_type varchar(50), 
@panel_type_descr varchar(250), 
@actionParam varchar^O), 
@kname varchar(20) 



If (@actionParam= , AddRec , ) 
begin 

insert into p_types (product_id, panel_type, panel_type_descr) values (@product_id, @panel_type, 

@panel_type_descr) 

end 

else 

If (@actionParam- EditRec 1 ) 
begin 

update p_types set panel_type = @panel_type, panel_type_descr = @panel_type_descr 

where product_id = @product_id and panel_type = @kName 

end 



AS 



Integrated Marketing Technology 



9/27/00 3:38 PM 



Page 141 of 142 



IMT Subscription Marketing Reporting System 



Procedure Name: spGetRPTList 



@src_cat_name varchar(30), 
@src_sub_cat varchar(50) 

AS 

SELECT report_id,rpt_name, rpt_description, location, rpt_fi Iters 
FROM rpt_cats 

WHERE src_cat_name = @src_cat_name 
AND src_sub_cat = @src_sub_cat 
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